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INTRODUZIONE 


Il VIC 20 è un computer stimolante, progettato per assicurarti facilmente 
l'uso migliore del suo colore e potenziale di suono. 

È stato molto divertente scrivere questo libro sia per i cooperatori che per 
i programmatori di video-games del VIC. Il BASIC é veloce e chiaro, la gam¬ 
ma dei suoni e degli effetti cromatici praticamente infinita e, malgrado le lie¬ 
vi limitazioni di una grafica larga, permette di creare splendide composizioni 
sullo schermo, specialmente usando il comando POKE. 

Sebbene io speri che registrerete questi programmi come noi li abbiamo 
catalogati qui, divertendovi a giocarci, il reale valore di un libro come questo 
consiste in come maneggerete i programmi per farli vostri nelle idee che ne 
trarrete e che userete per i vostri prossimi programmi. 

Ho tentato di scegliere una vasta gamma di programmi per mostrare 
quanto possa essere versatile il VIC, e di darvi qualche idea sul tipo di pro¬ 
grammi che potrete scrivere e il modo più facile per raggiungere gli effetti 
desiderati. 

La stampante riproduce tutte le grafiche VIC, e per rendere i list più chiari 
possibili li abbiamo stampati a grandezza naturale, proprio come sono usciti 
dalla stampante. Malgrado ciò alcuni dei comandi di colore possono essere 
un po’ duri da utilizzare. Questa é una lista dei comandi di colore, insieme al¬ 
le istruzioni REVERSE ON e REVERSE OFF come riprodotte dalla stampan¬ 
te. Questo dovrebbe aiutarvi nel leggere i list. 

Oltre ad usare i comandi come elencati diversi programmi hanno l’istru¬ 
zione REM che spiega quali colori sono stati usati. Se non capite cos’é un 
particolare comando di colore usatene uno qualsiasi a piacere, e, in ogni ca¬ 
so cambiate i colori secondo i vostri bisogni, una volta capito cosa si intende 
fare con un particolare programma. 

Ringrazio per il loro utilissimo contributo i programmatori Adam e Lance 
Burbidge, Crhistopher Huther, M. Kendall, G. Charlton e Ken Mahogany. 
Senza di loro questo libro non sarebbe riuscito pienamente ad esplorare i po¬ 
tenziali del VIC 20. 
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Il libro segue un piano lineare. Viene introdotto il programma, qualche in¬ 
formazione su come fu scritto e come raggiunge i suoi scopi. Viene anche 
dato qualche spunto su come potresti modificarlo. Oltre ai list abbiamo ag¬ 
giunto qualche idea per aiutarti a scrivere i tuoi programmi e ci sono alcuni 
listati di altri programmi in Microsoft BASIC che tu puoi voler adattare al 
VIC. La maggior parte dei programmi che tu incontri nei libri e nelle riviste 


1 REM CARATTERI DI CONTROLLO 


10 

REM 


NERO 

15 

REM 



20 

REM 

"f 

BIANCO 

ci!5 

REM 



30 

REM 

"ffl" 

ROSSO 

35 

REM 



40 

REM 

"ku" 

AZZURRO 

45 

REM 



50 

REM 

"1" 

PORPORA 

55 

REM 



60 

REM 

"II" 

VERDE 

65 

REM 



70 

REM 

ii mi 

Mi 

BLU 

f‘ -J 

REM 



80 

REM 

"51" 

GIALLO 

85 

REM 



90 

REM 

"J3" 

REVERSE 

95 

REM 



100 REM 

"1" 

REVERSE 

10 

5 REM 



110 REM 


IN ALTO 


115 REM 

128 REM "SI" IH BASSO 
125 REM 

130 REM "II" A DESTRA 
135 REM 


140 REM"||" A SINISTRA 
READY. 


sono scritti, come ben sai, in linguaggio BASIC diverso dal VIC BASIC, cosi 
il convertire questi programmi potrà aiutarti a sviluppare l'abilità necessaria 
a convertire i list che troverai da altre parti. 

Infine c’é un’appendice, intesa a servire da prontuario, con un insieme di 
informazioni a cui sei sicuro di poterti sempre riferire. Sto già lavorando ad 
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un secondo volume; saranno quindi benaccetti i vostri contributi, sia pro¬ 
grammi che scorciatoie e routines per effetti speciali scoperti da voi. Se ac¬ 
cetterò i vostri contributi riceverete un compenso, il riconoscimento della 
paternità e alcune copie del libro. Spedite i list e le descrizioni dettagliate a: 
INTERFACE 44-66 EARLS COURT ROAD, LONDON, W8 6EJ 

Bene, sono sicuro che sarete ansiosi di passare ai fatti, termino così que¬ 
sta introduzione e vi lascio cominciare. Prima, però, vorrei ringraziare la AD¬ 
DA HOME COMPUTERS Ltd, Victoria Road, London W3 che mi ha molto aiu¬ 
tato fornendo l'apparecchiatura e utili informazioni. 

Spero che vi divertirete usando questo libro. Mi interessa qualunque rispo¬ 
sta vi preoccuperete di mandarmi (scrivetemi all'INTERFACE) e attendo im¬ 
pazientemente di ricevere i vostri programmi originali preferiti, le routine e 
tante idee per il nostro secondo volume. Allo stesso modo gradirò molto ri¬ 
cevere una qualsiasi ristesura o miglioramento dei programmi di questo li¬ 
bro (per favore solo listati). Buon gioco! 


TIM HARTNELL 
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PAROLIERE 


È questo un gioco per due persone, la prima inserisce una parola di sua 
scelta (lettera per lettera) e l’altra cerca di indovinare tale parola (una lette¬ 
ra alla volta). Il VIC stampa una barretta per ogni lettera della parola ed ogni 
volta che una lettera sarà indovinata questa verrà stampata al posto di ogni 
barretta che, all'Interno della parola, la rappresenta. 


Remarks 

50 Crea degli array, se necessario 

100-130 accetta la parola "segreta”, una lettera alla volta 

135 conta i 10 tentativi 

145-170 i colori vengono generati casualmente secondo la subroutine 
9010, stampa la lettera se è stata indovinata, altrimenti stampa 
la barretta 

210-260 accetta una lettera e la confronta, lettera per lettera, con la paro¬ 
la "segreta" 

270 se la parola viene indovinata il controllo è passato alla routine di 

vittoria (linea 1000) 

300-330 messaggio di sconfitta e rivelazione della parola 

1055-1100 chiede se si vuole giocare ancora, se la risposta è no allora rin¬ 
grazia per la partita 

5000 routine che provvede al suono 

9000 routine che assegna i controlli colore alla stringa A$, quando vie¬ 
ne chiamata (gosub 9010) stampa il prossimo carattere con un 
colore random. Questa routine chiama anche quella del suono, 
opera poi dei flashes dando ai bordo dei colori casuali 
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10 REM PftROLIERE (RIVISTO DR CONIMI R. 

20 PRINT:GOSUB3000 
30 INPUT"■KKUQURNTE LETTERE";N 
50 IFH>10THENDIMB(H>,D(N > 

100 FORfl:= 1 TOM : INPUTC* 

120 B(R >=RSCCC$>:D CR >=B <R > 

125 0$="." 

130 MEXTR 

135 FOR J==1TO10 :PRIMT"□" 

140 PRIMT : PRIMT:PRIMT 
145 FORE=1TOM 
150 GOSUB9010 :PRIHTBT; 

155 IFB E > =D E > THENPRI NT " - " ; 

160 I FB ( E > OD < E > THENPR INTCHR* < B < E > > ; 
170 NEXTE 
130 PRIMT:PRIMI 
190 H=0 

200 OOSUB9010 : PR INTBT" |*.*MITENTRT IVO 
" J 

210 INPUTCf 
220 F=RSC(CT > 

230 FORG=1T0M 

240 IFD(G> =FTHEMD(G >=0 

250 I FD < G =0THENH=H+1 

260 MEXTG 

270 IFH=MTHEM1000 

2S0 NEXTJ 

290 FRINT 

300 GOSUB9010:PRI NT "SPIACENTE IL. TEMPO 
E r lUUUHUISCfìDUTO " 

310 PRIMT 

320 GOSUB9010 :PRINTBT;” LR PAROLA ERA 
■> . 

330 GOTO1045 
1000 REM VITTORIA 
1010 PRIMT 

1020 GOSIJB9010 : PR I NTB$ ; " HA I IMDOVI MA 

io i M'&imiiiRiir ,t "aiiiiiiirEHT at i vi a- 
1030 PRINTCHR$<28>"KUULR PAROLA ERAffl" 
104O PR I MT " >IIII»H " 

1045 FORQ=1TOM :PRINTCHR*<B <Q> >; :MEXT 
1050 PRIMT 
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1055 GOSUB9010 : PRINTB* ; " eltaaifcfcn IOCHI R 
NCOF RilgliililIill S/N > " 

1060 GETCt: IFC$=""THEN1060 
1070 IFC*="S"THENRUN 

1080 GUSUB3010 : PR INTB* ; " EPPMHUK , GRRZ 
IE PER" 

1030 GOSUB3010 : PR INTB* , " ZllIRLR PflRT IT 
RI" 

1095 FORT=1TO300:NEXT 
1097 PRIHT 
1100 GOTO1080 
5000 REM SUONO 

5010 P0KE36878,INT <RND<1>*8 >+8 

5020 FORT =1TO1G0STEPCINT <RND <1>*8> +1> 

5038 P0KE36S76,240-T 

5040 P0KE36877T 

5060 NEXT 

5070 POKE36876.-0 

5080 P0KE36877,© 

5090 RETURN 
8990 END 

9000 R*="R«yMBr 

9010 B*=M ID* < fl$ , I NT'< RND < 1 > *7 > +1 > , 1 > 
9020 GOSUB5000 

3025 P0KE36873... I NT < RND < 1 > *6 >+26 
9030 RETURN 


sta. simboli otrafici 


20 


1 

SHIFT 

HOME =CHR*<147> 

30 


.‘J 

CRSR + 

=CHR* < 23 > 

135 


1 

SHIFT 

HOME =CHR* 147 '■> 

200 


5 

CRSR + 

=CHR*<29> 

300 


o 

CRSR+- 

=CHR* < 29 



1020 


: 1 CRSRt =CHP.*<17> 

10 SHIFT CRSRt- =CHRSK157> 

1 CRSRt =CHR* 17 > 

7 SHIFT CRSRt- =CHRf157> 

1 CRSRt =CHR*<: 17> 

1030 : 4 CRSRt- =CHR*<29> 

1 CRSRt =CHR*<17> 

1040 : 8 CRSRt- =CHR*<29> 

1055 : 2 CRSRt =CHR$<17> 

1 REVERSE =CHRt <18 > 

3 CRSRt- =CHR$<29> 

1 SHIFT REVERSE =CHR*<146> 
1 CRSRt =CHR$<17) 

9 SHIFT CRSRt- =CHR*< 157> 

1080 : 1 REVERSE =CHR*<18> 

5 CRSRt- =CHR# < 29 > 

1090 : 1 REVERSE =CHR$<18> 

4 SHIFT CRSRt- =CHR$< 157> 

1 SHIFT REVERSE =CHR$<146> 
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CORSE 


Questo gioco è molto semplice. Scegliete il vostro "cavallo”, un numero 
tra 1 e 6, poi non vi resta che osservare la corsa e vedere se le vostre previ¬ 
sioni erano esatte. Interessanti sono le linee 15 e 55. Queste permettono al 
VIC di assegnare un colore diverso ad ogni numero pur mantenendo per o- 
gni numero sempre lo stesso colore ogni volta che viene stampato. Capirete 
meglio cosa intendo quando vedrete girare il programma. 

La routine del suono, linea 1000 potrà facilmente essere migliorata dalla 
vostra abilità di programmatori. 


5 P 0 K E 3 6 8 7 98 

10 REM CORSE CRIVISTO Dfl COMINI R.> 

12 F'R I NT ” □" : PRI NT : PRI NT : PRI NT : PRI NT : PR 
I NT SPRINT 

15 Fi$= " 3k.Slag|" +CHR* < 28 > 

20 PR I NT " I1MHOME VIHCI TORE " , , , , , ,CHRf 
C 28 > " UOUtìiJC Dfl 1 FI S > " ; 

30 INPUTW 

35 IFLK10RW> 6 T H EN30 
40 FOR.J= 1T06 : B C J > -0 : HEVT 
50 PRINT 

52 PEI NT" SI" sREM HOME 

54 FORM-1T06 

55 C$=MID$CR* r M1 > 

60 PR INTTRB C B < M > > C* ; M 
65 GOSUB1000 
70 PRINT 

80 B <M >=BC M > +1NT <RND<1> +.5> 

90 I FE‘ C M > > 18THEN120 
100 NEXT 
110 G0T052 
120 F0RZ=MT08 
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130 PRINT 
140 NEXT 

150 F'RINT" aai FINE GIOCO 
160 FRINT 

170 F'RINTCHR*C28> " E»»I IL VINCITORE E'"M 
180 IFW=MTHENPR I NT " LUE TU LO fi VE VI DET 
TO! ! " :PRINT"!*JMllf-10LT0 BENE" 

185 FRI NT 

190 IFWOMTHENPRI NT " «IliB VEV I DETTO " N 
: PR I NT : PR I NT " BlfeKtKFECCRTO " 

200 F'RINT 

210 FORJ=1TOS00:NEXT 

220 PRINT"|*JUPREMI UN TOSTO” 

230 PR INTCHRS < 28 > " IMCUfeBUPER " 

240 F'RINT"3MUJN0 NUOVO PARTITO" 

250 GETVT 

260 IFV$=""THEN250 
270 RUN 

1000 P0KE3687S,15 
1010 FORQ=lTOO<M> 

1020 P0KE36876,180+1NT<RND<1>*60 > 

1030 NEXTQ 
1040 F'OKE36878.,0 
1070 RETURN 


L. i sta. s i rnfoo l i gra+ i c i 


12 : 1 SHIFT HOME =CHR*C147 > 
20 : 8 CRSR+ =CHR$<29> 

50 : 1 SHIFT HOME =CHR*<147> 


1 HOME =CHR*<19> 


150 


1 REVERSE =CHR$<18> 
1 CRSR«- =CHR$<29> 


170 : 1 REVERSE =CHR$<18> 
2 CRSR+ =CHRfC29 > 
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i se 


■5 

U R R = i..: H R 4 (. 3 

1 30 


10 

CRSR«- =CHR$<2 

220 



CRSR4- =CHR*<29 

230 


C; 

CRSR*- =CHR$ <23 

240 


2 

CRSR*- ~C HR £ <23 
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DR WATSON e DR AUDIO 


Questa è una coppia di semplici programmi nei quali il Vie pensa un nu¬ 
mero tra uno e cento e voi dovete indovinarlo. 

In DR WATSON l'aiuto del VIC è verbale ed è graziosamente facile indovi¬ 
nare il numero. DR AUDIO, di contro, dà un aiuto "musicale”, cioè una nota, 
che vi permetterà di capire a che distanza siete dal numero da indovinare. 
Dopo avervi giocato due o tre volte probabilmente sarete più che soddisfatti 
di vedere come vi risulti più semplice l'interpretazione dei suoni. 


Dr Watson 

5 REM DOTTOR WfiTSON 

6 C=0:PRINT"3" 

10 FRINT"STO PENSANDO UN NUMERO TRA 
UNO E 100" 

30 A= I NT < RHD < 1 > :■* 100 > +1 
40 PRI NT " QUAL " E " 

45 INPUTB 
50 C=C+1 

60 IFBOATHENPRI NT " NO , " CHRT < 28 > ; B ; " 3 
E r "CHRT< 28 >" SBAGLIATO" 

65 IFB=ATHEN120 


70 

IFBCATHENPRINT 

"U E 

TROPPO BASSI 

8© 

IFB>ATHENPRINT 

" 1 E •' 

TROPPO ALTO 

90 

IFC<10THEN45 



100 

PRINT:PRINT" 

^ INE 

DEL GIOCGi!" 

1 10 

PRINTCHR*<28> 

"IO STAV 

m PENSANDO" 


: GOTO170 

1 20 PR I NT " S I,E' GI USTO ! " 

130 FRINT 

140 PRINT"3 IO AVEVO PENSATO"A 
150 PRINT 
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160 FRINT" HAI INDOVINATO IN "C" 
TENTATIVI" 

170 FORJ=1TO5008:NENT 
ISO RUN 


L i sta s i rubici l i otraf i c i 


t. 

100 


1 SHIFT HOME =CHE$C147> 

1 REVERSE =CHR*<13> 

1 SHIFT REVERSE =CHR$<146> 


Dr Audio 


5 REM DR AUDIO 

6 C=1 

7 P0KE36S787 

10 PRINT"3ST0 PENSANDO UN NUMERO 
TRA 1 E 100" 

30 A=INT <RND<1> * 100> +1 
48 PRI NT " MWM QUflL ' E ' " ; 

45 INPUTB 
50 C=C+1 

60 IFBOATHENPRINT"NO ,il" ;B; "SE ' HUSSBAGL 
IATO" 

65 IFB=ATHEN120 

67 PRINT"TENTATIVO";C; 

70 P0KE36875ABS < A-B >•+■ 128 
80 FORT == 1T0700 : HENTT 
85 P0KE36875., 0 
90 IFCC30THEN45 

100 FRI NT : FRI NT" JOFIHE DEL GIOCO®" 

1.10 PR INTCHR* 28 > " 10 STAVO PENSANDO " A : 
GOTO 170 

120 FRI NT" «SI E ■' GIUSTO! 3" 

130 PEINT 

140 FRI NT," 3 IO STAVO PENSANDO?!" A "3" 

150 FRINT 
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MASTERMIND 


Il gioco Mastermind è registrato dalla Invicta, che ne vende molte versioni 
facenti uso di chiodi colorati. L’Invicta comprò i diritti dei gioco da un mate¬ 
matico, Mordechai Meirovich, nel 1971 e dopo un paio d’anni lo commercia¬ 
lizzò con grande successo. Il principio è semplice. Il VIC sceglie un codice 
di tre cifre (come ad esempio 259), usando numeri da 1 a 9. Lo zero non è u- 
sato e nessuna cifra è usata più di una volta nel codice (così 117, 494, o 666 
sono impossibili). Bisogna indovinare il codice in 10 tentativi (al massimo). 
La risposta del VIC è facile da interpretare. Dopo ogni tentativo viene segna¬ 
lato il punteggio in termini di bianchi e neri. Realizzare un nero significa az¬ 
zeccare una cifra giusta ed al posto giusto all'interno del codice. Realizzare 
un bianco significa aver azzeccato una cifra del codice ma al posto sbaglia¬ 
to. 

Es.: se il codice è 217 inserendo 261 si otterrà un "punteggio’ di un nero ed 
un bianco, il nero si riferisce al 2 ed il bianco all’1. Se dopo 10 tentativi non 
avrete indovinato il codice questo vi sarà mostrato dal VIC. 


Remarks 

30-50 vengono generati i tre numeri del codice 

60 si controlla che non vi siano numeri uguali e se ve ne sono si tor¬ 

na a generarne tre nuovi 

70 le tre cifre separate vengono unite in un numero di tre cifre 

80 e 330 ciclo dei tentativi 

90 stampa il numero del tentativo 

95 viene accettato il codice dato dal giocatore 

100-120 il codice fornito dal giocatore come un unico numero viene sepa¬ 
rato nelle tre cifre componenti, che possono cosi essere compa¬ 
rate con quelle generate dal VIC 
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130 comparazione del codice del giocatore con quello del VIC, se so¬ 

no uguali si va alla routine di vincita (linea 360) 

150 vengono azzerati i contatori dei neri e dei bianchi 

170-210 controlla i neri. Per ogni cifra giusta al posto giusto il contatore 
dei neri è incrementato di uno (linea 190), e viene cambiata con 
zero la cifra del codice originale affinchè non sia poi ritrovata 
dalla routine che controlla i bianchi 

220-280 controlla i bianchi, per ogni cifra giusta il contatore dei bianchi 
viene incrementato di uno 

290 viene ricostruito il codice originale (tramite D) mettendo così a 
posto quelle cifre che erano state trasformate in zeri alla linea 
200 

320-325 stampa del punteggio 

340-350 se il giocatore non indovina in 10 tentativi il codice gli viene rive¬ 
lato 

360-380 routine di vincita 

Suggerimenti 

- ridurre il numero dei tentativi (6 è un buon numero) 

- cambiare il gioco con i colori, usando per questi un codice numerico, utile 
sia per la stampa che per l'input del codice da parte del giocatore 

- aggiungere un suono ed un particolare affetto a seconda dei bianchi e dei 
neri trovati 

- aggiungere un effetto vistoso se il giocatore indovina il codice 

1 REM MRSTERMIND 

2 REM RIVISTO DR COMINI R. 

IO PRINT" 

30 FORZ=1T03 

40 R <Z > = INT<RND<1>*9 > +1 

50 NEXTZ 

60 IFR <1>=R C2 > ORR<1>=R < 3 >ORR <2 >=R <3 > TH 
EN30 
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70 D= 10O*fl < 1 > +10*R <. 2 +R < 3 > 

80 FORC=1TO10 

30 FRINT" TENTATIVO ";C; 

95 input:*: 

100 b < i > = i nt< xx 100 :> 

110 B < 2 > = I NT < X-100*B < 1 > > X16 > 

120 b < 3 > =x-1 00 *b i > -1 0 *b c 2 

130 IFD=XTHEN360 

150 N=0:W=0 

170 FORE=lT03 

180 I FA E > OB < E > THEH218 

190 N=N+1 

200 ACE>=0 

210 NEXTE 

220 FORF=1T03 

230 I FA •'F > =0THEN280 

240 F0RE=1T03 

250 IFB < F > OR < E THEN278 

260 W=W+1 

270 NEXTE 

280 NEXTF 

290 R < 1 = I NT < DX100 > 

300 R < 2 = I NT < < D-108*fl < 1 > > /18 > 

310 R < 3 > =D-1004iR C 1 > -10*R < 2 > 

320 FRI NT "Il URI RERLIZZRTO" 

325 PRINT"■";N;"NERI EH";M;"BIRNCHIS" 
330 NEXTC 

340 PRINT"IMJIL MIO NUMERO ERR'SIIIIIIII 
; R 1 > ; fi < 2 > ; R < 3 > 

350 END 

360 PR I NTCHR-t < 28 > " WM CONGRRTULAZIONI " 
370 PR I NT " EMilUTENTRT IVI ■ 3" ; C " 33" 

380 END 


L i sta. s i rntoo 1 i •gira.f i c i 


10 

: 1 

SHIFT HOME =CHR*<147> 

340 

■ *3* 

CRSR*- =CHR$<29> 


1 

CRSRT =CHR$<17> 


13 

SHIFT CRSR*- =CHR*<157> 


15 



CRSRt- =CHR$<29> 


CRSR*- =CHR$<29> 
REVERSE =CHR$<18 



NOTTE SULLA MONTAGNA SELVAGGIA 


Questo programma va forse bene per quelle persone che dicono "é vera¬ 
mente piacevole avere un Personal Computer, ma per cosa lo puoi usare?”. 
Una volta visto (e udito) questo programma, potranno essere convinti che 
forse non avrebbero dovuto porre tale domanda. La musica è selvaggia e ca¬ 
suale come dice il titolo, sebbene la grafica abbia un ordine e una simmetria. 
Inserito il programma, come qui è listato, provatelo e se volete cercate poi di 
dare un ordine a questa musica. 


5 PRINT"3" 

10 REM NOTTE SULLA MONTAGNA SELVAGGIA 
12 REM MUSICA CASUALE 
15 M=INT<RND<1>#8> 

28 A=INT < END <1> *18 > 

30 B= I NT RND C 1 > * 18 > 

40 C=7911 


50 

60 

70 

80 

•30 

8' 


0=38631 

POKEC+A,102 :POKED+A,M 

POKEC-A,102 :POKED-A,M 

POKEC+11*A+B., 102 : POKED+11 *A+B , M 

POKEC—11*A-B,102 :POKED-11*A-B,M 


IFRND < 1 > >0 
100 P0KE36879 
RND C1> *8 >+8 
120 P0KE36878 
P0KE36874 
POME36875 
P0KE36876 
P0KE36377 
IFRNDC1>> 
POKE36878 


3THEN120 

16* < I NT < RND 1 > * 16 > > +1 NT > 


130 
140 
150 
180 
195 
200 
205 
215 


I NT C RND (. 
INTCRNDC 
INT <RND C 
INT <RND C 
I NT RND C 
1THEN205 
0 


1 ;■ * 15 > + 1 

1 >* 128>+128 
1 > *128 > +128 
1 >* 128>+128 
1 > *128 > +128 


I FRND 1 > >. 3THEN215 
IFRND-:: 1 ». 3THEN230 
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Lis 


220 PQKE36875,0 

230 FORT=1TORNO <1>#20+5 :NEXT 

235 IFRND<1> >.3THEN250 

240 P0KE363770 

250 P0KE36376.,0 

500 GOTO10 


ta. simboli grafici 
5:1 SHIFT HOME =CHR*<147> 
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SLOT 


Questo splendido programma, che utilizza al massimo la grafica del VIC, 
è stato scritto per questo libro da M. Kendall. 

Ci sono tre ruote che girano, ogni ruota ha quattro simboli. Voi potete fer¬ 
mare tutte le ruote e dopo tenerle come sono o dare ancora dei colpetti con 
la speranza di ''accomodarle” meglio. 

Ogni giocata ha naturalmente il suo costo, tale costo è di 2$, voi partite 
con 5$ a disposizione. 

Le combinazioni vincenti 

- stesso stesso stesso 5$ 

- stesso stesso altro 3$ 

- altro stesso stesso 1$ 

Tasti di controllo 

Ogni tasto ferma le ruote 
Con l-l le tenete come sono 
Con N date un colpetto 

ogni tasto vi fa ripartire 


8 P0KE3S879 ,27 s F'R 1 NT " 38BIII>II KL0T" : P 
RINT" DI M.KENDALL 1982":REM RIVISTO DA 
COMINI R. 

1 PRINT"BHHffl SVUOI LE " : FRINT" 0 

affili STRUZI OH I ? " :PRINT"iSSS <S 

OR N 

2 GETQ* : I FQ$ = " " THEN2 

3 I FQ:f = " S " THENGOSUB1000 

4 L-5 

5 PR I NT " □" 

6 L=L—2 

7 W=0 
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'.salili 


8 P 0 K E36878,10 

9 P 0 KE36879,72 

10 A* ( i >=" ;aiin,--.----.aiiiia 

im ■■*■-. canini '■- 

so r*<2>-" a\ simili wià m. suini 

in .a « sanimi :i i sa sanimi & 

■s " 

30 Fi* <: 3 salili ili sanili h» ■ 
sminuì.^ ■.sanili & 

40 Fi*'•! 4 ■<=" ai. amili a m issami 
■ saimiia 1 n esanimimi 

45 FORM--1T03 

50 fì=INT<RNDt 1 ■> *4 > +1 

51 FI 0-0= FI 

54 13=04-1 >*7+1 

55 PRINTTflBCGV IÌHIII15 ?J 

i umili sanimi sanimi 

m 

56 PRINT"gT 

60 PRINTT8B ■' G !>fii Fi > 

61 P0KE36875,200 : FORZ=1TO18 :NEXT:P0KE3 
68750 

66 PRIMI"SJ" 

70 NEXTN 

80 GETQi : IFQÌO " " THEM190 

100 G0T045 

190 FORN=1T03 

200 GETQi:IFQÌ=”"THEN200 

210 IFQÌ="H"THEM250 

220 IFQÌ="H"THEMGOSUB300:GOTO240 

230 GOTO200 

240 PR IMTTBB < < N-1 > *7+1 > " mmommam i idgfhh 

3XCU" 

245 GOTO260 

250 PR I NTTflB < < H-1 > *7+1 > " S MPM sMtaHOLD XTTT 

nm" 

260 NEXTN 
270 GOTO500 

299 END 

300 R=INT CRNDC1>*4 > +1 

301 fl N > =fi 

302 cì="3 sanimi smini 

ir sanimi sanimi 
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304 G=C(N-1>*7+D 

305 PRINTTABCGJC* 

310 PRI NT " SSS" TRE: < <H-1 > *7+1> A$ < A > 

320 PRINT"3" 

330 RETURN 

500 PR I NT " aTPTBlBlgJBTgTfTBTBTBTrtJ VINCI Tfl ; 

510 I Ffi < 1 > =A 2 > RNDR •:! 2 > =fi < 3 > THENW=5 : GOT 
O550 

520 I Ffl <: 1 > =A C 2 > THENU=3 
530 IFR < 2 > =fì < 3THENU= 1 
550 PRINTW.:"||f MENO 2* " 

560 REM PRINT"SIMUPER QUESTO GIOCO" 

563 I FW=5THENPR I NT " ® aiJflCKPOTSn 

□";GOSUB90O0 
565 PRINT"SÈSSI" 

570 L=L+W:PRINT"H uFI RESTANO — 

575 IFL>20THENS000 

580 I.FLC0THENPRINT"IXEMJWTU SEI ROVINA 
TO! !" :GOT0700 
600 GETQ-fc : I FQtO " " THEN5 
610 GOT0600 

700 PRIHT"Hi QUESTA PER TE SRIRIRIII 
HiiRlE r L.R FINE" 

701 FQRZ=12ST0255:P0KE36877,Z:FORT-1TO 
10 :NENTT,Z 

702 P U K E368770 

710 GETQT : I FQ'f- " " THEN710 
730 RUM 
1000 PRINT 

1010 PRINT"! VIC SLOT MAGHINE 

1020 PRIHTCHRTC28 >" -- 

1030 PRINT"w CI SONO 3 RUOTE® 

1040 PRINT" 4 SIMBOLI PER RUOTA® 

1060 PRINT "DI PUOI FERMARLE TUTTE 
1065 PR I NT "IU111UI1E 

1080 PRINT" TENERLE COME SONO®|||||||I 

MIO 

1085 PRINT "HIP ARE UN COLPETTO.® 

1090 PRINTCHRf<23>" TU PARTI CON 5T 

■ 

1100 PRINT" UN GIOCO COSTA 2 $ 

1110 PRINT-iHSIlIPREMI LA BARRA" 

1120 GETAT: IFA$=""THEN1120 
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2000 FRINT"3" 

2019 PRINTC'HR*<28 >"fl COMBINRZIOHI VINC 
ENTIBffl 

2030 FRINT"^STESSO STESSO STESS05*® 
2040 FRINT"STESSO STESSO ALTR03*®® 

2050 FRINT"ALTRO STESSO STESSO1*® 

2060 PRINTCHR* 28 > " TASTI DI CONTROLLO 

2070 PRINT"lflOGNUNO!=FERMA LE RUOTE® 
2080 PRINT"gMfcCOLPETTO® 

2090 PR I NT " J3H!S=T IENE LA STESSA® 

2100 PR I NT " J33GNIJNOH=CONT INUA® 

2110 PRINT" SCREMI LA BARRA»" 

2120 GETA*: IFA*=""THEN2120 
21.30 RETURN 

7999 END 

8000 PRINT" nattE CONGRATULAZIONI":PRI 
NT"®ÌHAI VUOTATO LA SLOT":PRINT"HBNON H 
0 PIU' SOLDI 

8001 P0KE36878,15 

8002 P0KE36379,24 

8005 PRINT"HMGJUESTfl PER TE E'LA FINE" 

8010 FORN-ITO12 

8015 PERDA :P0KE36875,A 

8020 FORZs1TO150 :NEXTZ 

8030 HEXTN 

8040 DATA 135,147,135,175 , 175,163 , 1331 
83,191,195,195,195,27 


8100 

RESTORE 

8115 

PERDA :P0KE36876,A 

8120 

FORZ=1TO150 :NEXTZ 

8130 

NEXTN 

8135 

PRINT "3" 

8140 

P0KE36875,0 

8150 

END 

3000 

P0KE36878,10 

9001 

FORZ=lTOIO 

9002 

P0KE36879,74 

90 1 0 

F 0 Rl'1=200T0220+Z :+ 2 

3020 

P0KE36876,M 

9030 

NEXTM,Z 

9035 

P0KE36876,0 

9036 

P0KE36879,72 
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■ù l -ù 


9040 

9506 

510 

.520 

9530 

9540 

9550 

9560 


RETURN 

REM-.. 

REM 

REM M. KENOFILI- 


RE M 

REM CO 1982 


REM 


REM- 
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Lista 


s i mbo 1 i 'lirat i c i 


0 : 1 SHIFT HOME =CHR*<147> 
1 CRSRt =CHR-$C17> 

7 CRSRt- -CHRt < 29 > 


1 : 9 CRSRt =CHR:t < 17 > 


5 : 1 SHIFT HOME =CHR$< 147> 


10 : 1 CRSRt =CHRt<17 > 

3 SHIFT CRSRt- =CHR$< 157> 

1 CRSRt -CHRt<17 > 

4 SHIFT CRSRt- =CHR$< 157> 

1 REVERSE =CHR$C18> 

1 CRSRt =CHRt <17 > 

5 SHIFT CRSRt- =CHR$<157> 

1 SHIFT REVERSE =CHR*<146> 
1 REVERSE =CHR$ <!18 > 

1 SHIFT REVERSE =CHR$C146> 
1 CRSRt =CHRT <■. 17> 

6 SHIFT CRSRt- :=CHRt1157> 


20 : 1 CRSRt =CHR$<17> 

6 SHIFT CRSRt- =CHR$<157> 

1 REVERSE =CHR* <18 > 

1 SHIFT REVERSE =CHR$<146> 
1 CRSRt =CHR$<17> 

6 SHIFT CRSRt- =CHRt< 157) 

1 REVERSE =CHR*<18> 

1 SHIFT REVERSE =CHR$<146> 
1 CRSRt =CHR* <17 > 

7 SHIFT CRSRt- =CHR*<157> 

1 REVERSE =>CHR#<18> 

1 SHIFT REVERSE =CHR$<146> 
1 CRSRt =CHRt C17 > 

7 SHIFT CRSRt- =CHR$<157> 

1 RE VERSE -CHRt C 18 > 

1 SHIFT REVERSE =CHR*<146> 
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30 : 1 CRS'RT =CHR*<17> 

4 SHIFT CRSRt- =CHR$ C 157 > 

1 CRSRt =CHRT 17 > 

4 SHIFT CRSRt- =CHR*<157> 

1 REVERSE =CHR*< V3 > 

2 SHIFT REVERSE =CHR*<146> 
1 CRSRT =CHR*U7> 

8 SHIFT CRSR*- =CHR$< 157> 

1 REVERSE =CHR$<:i8> 

1 SHIFT REVERSE =CHR#<146> 


40 : 1 CRSRT =CHR*<17> 

5 SHIFT CRSRt- =CHR$<157> 

1 REVERSE =CHR*<18> 

1 SHIFT REVERSE -CHRT<146> 
1 REVERSE =CHR$(18) 

1 CRSRT =CHR* 17 > 

4 SHIFT CRSRt- -CHRf< 157> 

1 SHIFT REVERSE =CHR$<146> 
1 CRSRT =CHR*<17> 

6 SHIFT CRSRt- =CHR$< 157 > 

1 REVERSE =CHRT <18 > 

1 SHIFT REVERSE =CHR*<146> 
1 REVERSE =CHRT <18 > 

1 CRSRT =CHR$ C17 > 

8 SHIFT CRSRt- =CHR*•:! 157> 

1 SHIFT REVERSE =CHR$<146> 

2 CRSRt- =CHRT<29> 


SHIFT CRSRt- =CHR$<157> 
CRSRT =CHR$d7> 

SHIFT CRSRt- =CHR$< 157> 
CRSRt =CHRf <: 17> . 

SHIFT CRSRt- =CHR$<:i57> 
CRSRT =CHR$d7> 

SHIFT CRSRt- =CHRT< 157 


56 : 1 HOME =CHR$d9> 
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HOME =CHR$<19> 


66 : 1 


240 

z 

I'* 

CRSRt =CHR$<17> 



»■' 

SHIFT CRSRt =CHR$ C145 > 

250 

• 

7 

CRSRt =CHR$ < 17 > 



i' - 

SHIFT CRSRt =CHR$<145> 

302 

; 

i 

SHIFT CRSRt =CHRt < 145 > 



i 

CRSRt =CHR t 17 > 



r‘ 

SHIFT CRSR*- =CHR$< 157> 



i 

CRSRt =CHRfC17> 



i*’ 

SHIFT CRSRt- =CHR*<157> 



ì 

CRSRt =CHR$<fl7> 



»** 

SHIFT CRSRt- =CHRf ( 157> 



ì 

CRSRt =CHRt < 17 > 



7 

SHIFT CRSR*- =CHR*<157> 

310 

s 

1 

HOME =CHRt <: 19 > 



1 

CRSRt -CHRf- < 17 > 

320 

• 

1 

HOME =CHR*<19> 

500 

M 

1 

HOME =CHR$<19> 



11 

CRSRt =CHR$<17> 

550 

■ 

1 

SHIFT CRSR4- =CHR$>::157> 

560 

; 

1 

CRSRt =CHRt e 17 > 



3 

CRSR*- =CHR$<29> 

563 

. 

1 

CRSRt =CHR-£ < 17 > 



1 

REVERSE =CHR$ < 18> 



1 

SHIFT REVERSE =CHR$<146 



2 

SHIFT CRSRt =CHR*<145> 

565 

5 

3 

CRSRt =CHRt 17 > 

570 

: 

1 

CRSRt- =CHRt 17 > 

580 

. 


SHIFT CRSRt =CHR$ < 145 > 




CRSRt- =CHRt < 29 > 
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700 

: 

O 

CRSRt =CHR$<17> 



12 

SHIFT CRSRt- =CHR*<157> 

1 000 

a 

1 

SHIFT HOME =CHR*<147> 

1 030 

a 

a 

1 

CRSRt =CHR$<17> 

1 040 

: 

1 

CRSRt -CHRt < 17 ) 

1065 

: 

10 

CRSRt- =CHR$<23> 

1 080 

; 

1 

C R S R t — CH F2 t >'■. 1 ?’ > 



3 

SHIFT CRSRt- =CHRt< 157> 

1085 

; 

■y 

C R S Rt- — i j H R T 2 9 



1 

CRSRt =CHR*<17> 

1 090 

: 

1 

CRSRt =CHR*< 17 > 

1110 

: 

2 

CRSRt =CHR$<: 17> 



3 

CRSRt- =CHR.$ < 23 > 

2000 

: 

1 

SHIFT HOME =CHR$<147> 

201 '3 

: 

1 

REVERSE =CHRt<18> 



1 

SHIFT REVERSE =CHR*<146 



1 

CRSRt =CHR$ < 17 :> 

2030 

: 

1 

CRSRt =CHRt ■: 17 > 

2040 

: 

2 

CRSRt =CHRt<: 17 > 

2050 

: 

1 

CRSRt =CHR* < 17 

2070 

: 

1 

REVERSE =CHR*(13) 



1 

SHIFT REVERSE =C:HR*<14S 



1 

CRSRt =CHR$<17> 

2080 

. 

1 

RE VERSE =CHRt 18> 



1 

SHIFT REVERSE =CHR$<146 



1 

CRSRt =CHR*<17> 




2090 


1 REVERSE «CHR*< 13> 

1 SHIFT REVERSE "CHETO. 46 > 
1 CRSRT "CHET C 17 '• 


2100 


1 REVERSE =CHRt-<18 3 
1 SHIFT REVERSE =CHR$<146> 
1 CRSRT' =CHET < 17> 


21 10 


REVERSE —CHE: 4? <■'. 18 > 

SHIFT REVERSE =CHRT0 46> 


S000 


SHIFT HOME =CHRT147> 
CRSRT -CHRTT17> 


8005 


CRSRT =CHRT | :: 17> 
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OTHELLO 


Othello non è certamente un gioco nuovo, è basato sul REVERSI, gioco 
inventato nel 1888. Reversi si giocava su una tradizionale tavola da dama, u- 
sando pezzi bicolore, rossi da un lato, neri dall'altro. Nel suo splendido libro 
"Discowering old board games" (shire publications Itd., Aylesbury, 1980), 
R.C. Bell spiega che il nero comincia il gioco collocando un pezzo (con la 
faccia nera rivolta in alto), sopra uno dei 4 quadretti centrali della scacchie¬ 
ra. Il rosso replica collocando il suo primo pezzo, con la faccia rossa in alto, 
su un altro quadretto centrale. “Questi quattro quadretti vengono cosi coper¬ 
ti nei primi 4 turni di gioco, i giocatori continueranno poi, alternativamente, 
piazzando i toro pezzi su quadretti adiacenti ad uno occupato da un pezzo 
nemico”. R.C. Bell scrisse. 

Ogni pezzo nemico in linea (orizzontale, verticale o diagonale) tra l’ultimo 
piazzato ed un altro sempre del medesimo giocatore viene allora girato mo¬ 
strando cosi il colore del giocatore. 

Il vincitore è il giocatore che possiede il maggior numero di pezzi quando 
la scacchiera è completamente coperta, o quando né l’uno né l’altro posso¬ 
no muovere. Troverete il VIC lento a giocare, ma eccezionalmente attento, 
in questa versione del gioco. Potete scegliere se partire primi o secondi. 

Per muovere inserirete le coordinate del quadretto dove volete andare, 
prima la distanza orizzontale e poi quella verticale (ascissa e ordinata), co¬ 
me se inserireste un numero di due cifre (es. 34). 

Remarks 

6 viene settato il bordo nero 

10-110 prepara la scacchiera casella dopo casella inserendo il codice 
del punto. Le linee da 70 a 100 posizionano i primi 4 pezzi (si noti 
che la X è una variabile contenente il codice ascii della X, così la 
O contiene il codice ascii della O 

120-170 viene data al giocatore la opportunità di muovere per primo 

1000 comincia la routine cuore del programma, l'intelligenza del VIC 
“othellista” 
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1340 

2000 

3000 

4000 

5000 

30 


se H ed R sono uguali a zero allora si è nel caso in cui né il com¬ 
puter né il giocatore possono muovere, il gioco è finito. 

In questo caso il controllo viene passato alla routine cominciante 
in 5000 che determina il vincitore 

comincia la routine che accetta la mossa del giocatore, questi 
inserirà zero se impossibilitato a muovere 

Comincia la routine che stampa e ristampa il bordo. Si noti l’uso 
del tasto HOME per cambiare il pezzo sotto ai vostri occhi 

comincia la routine che gira i pezzi 

fine del gioco 








Suggerimenti 


- cambiare la rappresentazione dei pezzi, ad esempio con dei cerchietti 
rossi e blu 

- cambiare la strategia del computer cambiando i valori alle linee che van¬ 
no da 1220 a 1270, cambiandone due o tre potrete magari migliorare il 
gioco ma la risposta sarà più lenta 

- aggiungere dei suoni quando i pezzi vengono girati 


1 REM OTHELLQ 

4 FRINT"3" 

5 K=fìSC<"X">:0=flSC <"0"> 

6 P0KE36S79,24 
10 DIMA < 10,10 > 

20 FORB=1TO10 
30 FCIRCUITO 10 

40 IFBO1 flNDCO 1ANDBO10ANDCO10THENR < 
E:, C > =ASC > 

50 NEXTC 
60 NEXTB 
70 A£5,5>=X 
80 RCe,6>=X 
90 fl<6 r 5 > =0 
100 fl C 5 , 6>=0 
110 P=0 

120 PRINTCHRT128 > " □VUO I COMINCI ARE TU " 
130 PR I NT " 1 — SI 2=NO> 

140 INPUTW 
150 PRINT"33" 

160 GOSUB3800 
170 I Fl*J= 1THEN2000 
1000 PRINT" MIA MOSSA 
1010 8-0 
1028 T=X 
1038 H-0 
1040 F0RA=2T09 
1050 F0RB=2T09 
1060 IF A A .r B C y 4 6 T H E N13 2 0 
1070 Q=0 
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1080 FORC=—1TO1 
1090 FOR0=—1T01 
1100 K=0 
1110 F=A 
1120 G=B 

1130 IFFK F+C , G+D > OSTHEN1130 

1140 K=K+1 

1150 F=F+C 

1160 G=G+D 

1170 GOTO1130 

1180 I FFi < F+C , G+D>OTTHEN1200 
1190 Q=Q+K 
1200 HEXTD 
1210 NEXTC 

1220 IFA=2 OR A=9 THEH Q=Q*2 
1230 IFB=2 OR B=9 THEH Q=Q*2 
1240 IFfl=3 OR A=8 THEH Q=Q/2 
1250 IFB=3 OR B=8 THEH Q=Q/2 
1260 IF <■. H=2 OR R=9>RHD<B=3 OR B=8 > THEH 
Q=Q/2 

1270 IF'.:R=3 OR fì=8> RHO’-Z=2 OR Z=9>THEH 
Q=Qr" 2 

1280 IFQCH OR Q=0 OR <RHD <1> >0.3RHDQ=H 
> THEH1320 
1298 H=Q 
1300 H=R 
1310 H=B 
1320 HEXTB 
1330 HEXTR 

1340 IFH=0RHDR=0THEH5000 

1350 IFH-0THEH1370 

1360 GOSUB4000 

1370 GOSUB3000 

2000 IHPUT"TUfì MOSSA"jR 

2010 S=H 

2020 T=0 

2040 IFR-0THEH2030 

2050 IFRC11ORR>8STHEH2000 

2060 M=IHT<R/10)+1 

2070 H-=R— 1 0* IHT C R/1 0 > +1 

2080 G 0 S U B4000 

2030 G 0 S U B3000 

2100 GOTO1000 
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3000 

30 1 0 
3020 
30:30 
3035 
3040 
3050 
3060 
3070 
3080 
3090 

3 1 00 

31 10 
3120 
3130 
3140 

3156 
ZI " 

3152 
3155 
ZI " 

3157 
3170 
4000 
4010 
4028 
4030 
4040 
4050 
4060 
4070 
4080 
4090 

4 100 
4110 


FRI NT" i»J" 

i :::r 0 

14=0 

PR I NT : PR I I TT " ■ ipTHELLOl" : PR I NT 

PR I NTCHRT < 28 > " .312345678MB" 

F0RB=2T09 
PRINTB-1; 

POR0=2T09 

PR INTCHRT ' 141B , D > > ; 

I FR C B , D > =HTHENC=C+ 1 
IFR<B D > =OTHENH=H+ .1 
NEXTD 
PRIN T B— 1 
HE' : TB 

PR IHTCHRT < 28 > " 312345678SI" 

FRI NT 

FRI NT” IO HO " ; CHRT '• 28 > C "HI FEZ 

FR I NT 

PR INT " TU HfiI " ; CHRT< 28 > H "iì FEZ 

FRI NT 
RETURN 
FORC=—1 TU 1 
FORD=-1T01 
F=M 
G=N 

I FR CF+CG+D > OSTHEN4080 
F=F+C 
0=0+0 
GOTO4040 

I FR <: F+C G + D > OTTHEN4140 
R F" r U = T 

IR M=F RND N=G THEN4140 
F = F-C 
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’fr in 


4120 G=G-D 
4138 GOTO4090 
4140 NEXTD 
4150 NEXTC 
160 RETURN 

000 IFOHTHENPRINT" HO VINTO" ,:C;H 
5010 IFHCCTHENPRINT" HRI VINTO";C;H 
5020 IFH=CTHENPRINT" PfiRITFT!" 

5038 END 


Lista, simboli 9 rat 1 ci 


4 

■ 

• 

1 

SHIFT 

HOME 

=CHR*<147> 

120 

■ 

■ 

1 

SHIFT 

HOME 

=CHR$-:: 147 > 

150 

■ 

■ 

1 

SHIFT 

HOME 

=CHR#<147> 

3000 

■ 

• 

1 

HOME 

=CHRT 

13 y 

3030 


1 

REVER 

SE =CHR*<18> 



1 

SHIFT 

REVER 

SE =CHR$<146 

3035 

; 

1 

REVER 

SE =CHR*<18> 



1 

SHIFT 

REVER 

SE =CHRT 146 

3130 

; 

1 

REVER 

SE =CHR*<18> 



1 

SHIFT 

REVER 

SE =CHR$<146 
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SINFONIA PER UN COMPUTER MALINCONICO 


Questo, da cui prende titolo il libro, è un programma capace di comporre 
della musica che, come dice il titolo, è malinconica. Dopo aver udito la mu¬ 
sica prodotta dal VIC troverete naturale il titolo che abbiamo voluto dare al 
programma. La principale struttura della musica viene dalle variabili 
A,B,C,D,E ed F che vengono ridefinite ad ogni RUN. Per come è scritto il 
programma gli accordi variano in riferimento al valore della variabile E, tali 
accordi si sovrappongono l’un l'altro dando origine a brusche pause e a bru¬ 
schi inizi. 


10 REM SINFONIA PER 

15 REM UN MALINCONICO 

16 REM COMPUTER 
18 00SUB 1000 

20 A=128+INTCRND<1>*128> 

30 6=128+1NT <RND<1>#128 > 

40 C=128+1NT<RND<1> * 128 > 

50 D=128+1NT < RND<1>*128 > 

60 E= I NT RND C 1 ) *2 > + 1 

70 F=2*E 

75 P0KE36878.,F-1 

80 F0RH=1T05#E 

10 0 P 0 K E36874 A 

110 NEXTH 

120 F0RH=1T05*E 

130 P0KE36875B 

140 NEXTH 

150 FORH==l TOSSE 

160 P0KE36876.rC 

180 FORH=lTOSSE 

130 P0KE36877,D 

200 NEXTH 

210 F0RH=1T02SE 

220 P 0 K E36874 , A 
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23tì NEXTH 
240 FORH-— 1 TU5:+E 
2 5 0 P O K E368 7 6C 
260 HEXTH 
500 PUH 

1000 PRIHT"3":REM CANCELLO 
1010 P0KE36879 , 16* < I NT '1RND '■ 1 > * 16 > > + C IN 
T • RND 1 > +3 > > +8 
1020 RETURN 


Lista, simboli 


grafici 


1000 : 1 SHIFT HOME -CHRT< 147) 
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SINFONIA PER UN COMPUTER MALINCONICO 
CON UNO SHOW ZEN 


Questo programma è lo stesso del precedente con l'aggiunta di una routi¬ 
ne grafica. 


10 REM SINFONIA PER 

15 REM UN MALINCONICO 

16 REM COMPUTER 

17 REM CON UNO SHOW ZEN 


13 UUSUB 10O0 
20 A=12S+I NT C RND <1>*12 
30 B=12S+1 NT C RND C1>*12 
40 C= 128+1 NT < RNO < 1 > * 12 
50 D= 128+1 NT RND < 1 > * 12 
60 E= I NT RND C 1 > *2 > +1 
70 F=2#E 

75 P0KE368 7 8F — 1 
90 F0RH=1T05*E 


1 00 

POKE36874 

,fì 

1 10 

NEXTH 


120 

F0RH=1T05 

+E 

130 

P0KE36875 


140 

NEXTH 


150 

F0RH=1T05 

+E 

160 

PUKE36S76 

,c 

180 

F0RH=1T05 

*E 

190 

P0KE36877 

,D 

200 

NEXTH 


210 

F0RH=1T02 

*E 

220 

POKE36874 

r lì 

230 

NEXTH 


240 

FORH=1T05 

*E 

250 

P0KE36876 

,C 

260 

NEXTH 


500 

RUN 
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1000 PRINT"ZJ" :REM CANCELLA 
1010 P0KE36S79 ,16*':: I NT < RND< 1 >* 16 > > + < IN 
T RND < 1 *8 > > +8 
1020 F0RJ=1T05 
1030 PRINT 
1040 NEXT 

1050 PRINT"3 SINFONIA PER UH MAL 

INCONICO COMPUTER " 

1060 PRINT 

1065 FORJ=1TORNOC1> *20 : PRINT" "; :NEXT 
1070 PR I NTCHRf 119+1 NT < RND C 1 > * 15 > > 

1 ©75 FOR J= 1 TORNO C 1 > *20 : PR I NT " " ; : NEXT 
10S0 PRINTCHRf<119+1NT <RNDC1>* 15 > > 

1085 FORJ=1TORNO <1> *20 :PRINT" "; :NEXT 
1090 PR I NTCHRf < 119+1 NT ■:! RND < 1 > * 15 > > 

1095 FOR,T=l TORNO C 1 >*20 : PRINT" " : :NEXT 
1100 PRINTCHRf<119+1NT <RND <1> *15 >> 

1110 RETURN 


Lista simfcioli -3r-a.tici 

1000 : 1 SHIFT HOME =CHR$<147> 
1850 : 1 REVERSE =CHRfC18> 
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Vie NIM 


Il VIC stampa un numero dispari di triangolini, vi chiede quanti volere 
prenderne, dopodiché anch'egli ne prende qualcuno, questo continua fino a 
che ne rimane uno solo, chi lo prende ha perso. 


Remarks 

20 determina il numero dei triangoli 

50 determina il massimo numero di triangoli che può essere preso 

100-130 stampa i triangoli 

210-215 determina quanti triangoli prende il VIC, i random della linea 210 
assicurano che il VIC faccia delle prese sbagliate di tanto in tan¬ 
to. La linea 215 controlla invece che l’errore non sia cosi grosso 
(nel caso ci fosse) da infrangere le regole 

280-290 cambia colore ad ogni manches del gioco 
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10 REM VIC HIM 

20 M-~0 : E-0 : Z= 1 6 +1 NT C RHD ■:! 1 > *8 > 

30 F'F' I NT " ZI" 

40 IF2*INT CZ/2 >=ZTHENZ=Z+1 
50 H=3+ INT RND< 1 > *2 > 

60 F'R I NT " BMRSSIMR PRESO "H 
70 G0SUB289 

80 I FE:>0THENPR I NT " SHE HO I PRESI " E" ili L 

v i e " e 

90 F'R I NT "Li" 

100 F'R I NT " ■ " : FORK= 1TOZ 
110 F'R INTK ; " V" : 

120 IFRND 1 > >0.6THENPRI NT 
130 NENTK 
140 GOSUB280 

145 F'RINT"HQURHTI NE PRENDI"; 

150 INPIJTE 

160 IFE3HTHEN150 

170 2-2—E 

180 GOSUB280 

190 IF2< 1THENPR INT " ;i| URI PRESO L'UL.TI 
NO "CHR*<28>"tìMUMUIL VIC HR VINTO! !":EN 
D 

210 Q=2 -1 - I NT <2-1 >/H+1 > >*<H+1 > -1 NT <R 
ND 1 > *2 ;• +1 NT < RND C 1 > *2 > 

215 IFQ<10RQ>HTHEN210 
220 GOSUB280 
230 2=2—Q 

240 IF2=0THENPRINT"il IL VIC HE PRENDE* 
" Q, , , " |*|3 OS I ■- TU " CHRf C 28 > " 1NCI ! !" : E 

ND 

270 GOTO60 
280 F'R I NT 

285 F'RINT"l##^###.:i*tt#|Stt##L||tt#fc k .###l##iii### 
##" 

290 RETURN 
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Lista, si rubo l i graf i c i 


36 

: 1 

SHIFT HOME =CHR$<147 

190 

: 1 

REVERSE =CHR*<18> 


4 

CRSR<- sCHR$(29> 

240 

. -t 

N •- 

CRSR«- =CHR$ <29 > 


1 

RE VERSE =CHR$<:13> 


1 

CRSRr- =rCHR$ < 29 > 




EVOLUZIONE 


Nel 1970 John Conway, allora docente alla Cambridge University, inventò 
il GIOCO della VITA, che rapidamente divenne un best seller per computer, 
nell’ottobre del 70 fu descritto sulla nota “Scientific American’’. 

Il gioco che simula la nascita, la crescita e la morte di'una colonia di cel¬ 
lule, produce splendidi effetti visivi. Le regole date da Conway sono semplici, 
ma producono risultati veramente interessanti. 

Le cellule nascono, vivono e muoiono in accordo coi dettami forniti dal 
DIO Conway. In accordo con le sue leggi, ciascuna cellula ne ha 8 contigue; 
ogni cellula che ne ha 2 o 3 vicine sopravvive fino alla prossima generazio¬ 
ne, se ci sono 3, e solo 3, cellule intorno ad una, una nuova si genera, ed o- 
gni cellula che ne ha 4 o più vicine muore per la sovrappopolazione. 

Evoluzione è una versione del gioco della vita scritta appositamente per il 
VIC. Viene settato uno schermo nero con un bordo rosso. 

Le cellule vengono disposte in un quadro 14 per 14, questo in accordo con 
le leggi di Conway. Il programma gira senza generare alcun suono, ma se vi 
fa piacere potrete aggiungere un suono con le seguenti linee: 

6 POKE 36878,7 

255 POKE 36876,240; POKE 36876,0 

1075 POKE 36876,235: POKE 36876,0 



Remarks 

10 dimensiona le matrici che conterranno le cellule 
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20-80 genera la prima evoluzione della colonia, creando (linea 50) una 
cellula se il numero casuale è maggiore di 0,5. Gli elementi delie 
due matrici vengono posti uguali alla linea 60 

90 il controllo viene passato alla subroutine che stampa la colonia 

95 incrementa il numero dell’evoluzione 

100-200 conta il numero di cellule intorno ad ogni cellula della colonia 

210-220 vengono modificati gli elementi della matrice B ip accordo con i 
risultati dello scandaglio or ora eseguito. Si noti che la matrice A 
non viene modificata, cosicché un cambiamento dovuto alia evo¬ 
luzione non interferisce con quella corrente che si sta studiando 

1000-1090 stampa la colonia leggendola dalla matrice A 


Suggerimenti 


- cambiare le dimensioni delle matrici 

- stampare ogni cellula in un diverso colore (rnd) 

- aggiungere una routine che prenda il posto delle linee 20-80, e che vi per¬ 
metta di inserire una vostra colonia di partenza 

- aggiungere (come parte della routine di stampa) una routine che conti il 
numero totale di cellule, e se questo è sceso al di sotto di un numero pre¬ 
fissato, ad esempio 5, dia nuovamente il RUN. Questo nuovo RUN sele¬ 
zionerà un nuovo colore o di bordo o di sfondo 


5 REM EVOLUZIONE 
7 PRINT"3" 

S PRIHT"flB" 

3 POKE36873,1@:REM BORDO ROSSO,SCHERMO 
NERO 

10 DIM R < 14.-14 > , B < 14 , 14 > 

20 F0RX=2TQ13 
30 F0RV=2T013 

50 IF RND<1>>0.5 THENR<N-V>=1 
60 B < K V > =fi X V > 
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70 NEHTV 
80 NEXTX 
90 GOSUB1000 
95 i_"ì=l_S-+-1 
10 0 F 0 R X=2 T 013 
110 FQRV=2T013 
120 C=0 



130 

IF 

A CX 

-1,V-1>=1THENC=C+1 

140 

IF 

A < X 

-1,V > — 1THENC=C+1 

150 

IF 

A e X 

-1 , V+1 > = 1 THENC=C+1 

160 

IF 

A X 

,V-1)=1THENC=C+1 

170 

II- 

a ex 

,v+i :j=ithenc=c+i 

180 

IF 

a e x 

+ 1 ,V-1 ::' = 1THENC=C+1 

190 

IF 

a e x 

+ 1,V > = 1THENC=C+1 

200 

IF 

a e x 

+ 1,V+1> = 1THENC-C+1 

210 

IF 

a e x 

, V > = 1ANDC02ANDC03THENB e X 

= 0 




220 

IF 

a e x 

, V = O A N D C=3 T H E N B e X , V > = 1 

230 

ne: 

«:tv 


240 

ne: 

7TX 


250 

GOTO90 


999 

END 



1000 FRI NT "g|" 

1 003 F'R I NT : PRI NT " HEVGUJZ I ONE » " ; G " 
':REM BIANCO,GlALLO 
1005 FRI NT 
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1010 FORBITO 14 
1020 FORV=1TO14 
i oso r •: xv >-B < :■<:, v :> 

1040 IFR < X , V :> = 1THENPRI NT " * " ; 

105O IFR <X,V>-0THEWPRINT" "; 

1060 NEXTV 

1070 PRINT 

1080 NEXTX 

1090 RETURN 


L i sr+a. s i rubo l i cjraf i c i 


3 


1 000 


1 SHIFT HOME =GHR*<147> 
1 RE VERSE =CHR#<13:> 

1 HOME =CHR$ < 19 > 


CI J 


TTTvw(| 

WHT 

RED CYIV PUR 

.61 .a 

GRN BLU YEL 
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SCOMMETTIAMO 


È questo un divertente programma, specie per i più giovani. 

Il VIC sceglie due numeri tra l’uno ed il tredici, ti dice quanti $ hai a dispo¬ 
sizione e ti chiede di scommettere sulla probabilità che il terzo numero (che 
sarà successivamente scelto) giaccia tra i due scelti. Se indovini, cioè il ter¬ 
zo numero è compreso fra i primi due, vinci il doppio di quello che hai punta¬ 
to, se sbagli perdi invece quello che avevi scommesso. Finché avrai soldi 
potrai continuare il gioco. 

Parti con 20$ e puoi scommettere qualunque cifra purché tu la possegga. 



Remarks 

30-40 genera i primi due numeri 

50 verifica se i due numeri generati differiscono per più di una unità, 

se cosi non fosse il controllo è inviato alle linee 30-40 che gene¬ 
reranno due nuovi numeri 
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60 genera il terzo numero che in questa fase non è mostrato al gio¬ 

catore 

70 verifica che il terzo numero non sia uguale ad uno dei primi due, 

se lo fosse il controllo è rimandato alla linea 60 dove ne viene ge¬ 
nerato un altro 

80-137 stampa il denaro in possesso del giocatore, i due numeri scelti e 
chiede al giocatore di scommettere 

150-170 accetta le scommesse (150), chiede una nuova scommessa se il 
giocatore punta più di quanto possiede (160) e risponde di non 
barare se la scommessa è minore di un dollaro 

180 attesa prima di rivelare il terzo numero 

190-260 rivela il terzo numero (190), salta alla fine se la scommessa è 
minore di un $, salta alla routine di perdita se il numero non è 
compreso fra i primi due (210), si congratula col giocatore e gli 
aumenta il credito (220-30-40) se il numero era fra i primi due. 
Nelle linee 250-260 consola il giocatore e gli toglie dei dollari 

270 verifica se il credito è più di un dollaro, altrimenti il controllo pas¬ 

sa alla routine di "bancarotta” (310) 

290-300 è questa una routine grafica molto interessante che potrete usa¬ 
re anche in altri programmi. La linea 290 stampa una linea e le li¬ 
nee da 292 a 298 stampano (con delle POKE) in posizioni casuali 
dei rettangolini di colore casuale. Dopo una breve pausa (299) il 
ciclo ricomincia. La PRINT della linea 290 fa sì che ci sia uno 
spostamento dello schermo 

305 inizia un altro round del gioco 

310-330 questa è la routine di fine gioco che stampa "il gioco è finito” e 
poi una serie infinita di scritte "tu sei rovinato” 


Suggerimenti 

- al posto dell’INPUT nella linea 150 usa una GET, con un contasecondi 
che costringa il giocatore a decidere velocemente e con una penalità di 
denaro se esce dal tempo 
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aggiungi uno squillo di tromba per le vincite ed un rumoraccio per le per¬ 
dite ed un super-rumoraccio per la "bancarotta" 

aggiungi qualche cinguettio (vedi manuale VIC) durante gli intervalli tra 
un round e l’altro 

fai cambiare casualmente l'ammontare della vincita e della perdita nei 
vari round, informando il giocatore di quanto vale una vincita o una perdi¬ 
ta prima della scommessa 


10 REM SCOMMETTIAMO 

15 REM RIVISTO DA COMIHI R. 

20 D=20 
25 FRINT"3" 

30 A=INT<RND<1> *13 > + 1 

40 B=INTCRND <1>*13 > +1 

50 IFABS B-A > C2THEN30 

60 C=INT CRND <1> *13> +1 

70 IFA=CORB=CTHEN60 

75 IFA>BTHENS=A :A=B:B=S 

80 PRINT"HIL PRIMO NUMERO E r ";A 

90 FRI NT" lk.IL SECONDO E r ";B 

100 PRINT 

120 PRINT" il HAI J3i" ;D; "$■" 

125 PRINT 

130 PR I NT " U»Ì*13ARA ' IL PROSSIMO " 

137 PR I NT » » Wttf TRA " : A ; " E " ; B " ?" 

138 PRINT "SITUANTI $ SCOMMETTI"; 

150 INPUTE 

160 IFE>DTHEN150 

170 IFE<1THENPRINTCHR# <28 >" NON BAR 

ARE ! ! " 

180 FORZ=1T0999 : HERTZ 

190 PRINT" 31L MIO NUMERO E'";C 

200 IFEC1THEN280 

210 IFNOT(OA AND CCB OR C<A AND C>B>T 
HEN250 

220 PRINT" MOLTO BENE" 

225 PRINTCHR*<28>"aWUBHAI VINTO T?I" ;2 
#E"B" 

230 D=D+2=fE 
240 GOTO280 
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256 FRI NT" ■^PlflCEMTEgglHHIIIII 

|*HlTI PERSO *";E.:"i" 

260 D=D-E 

270 IFDC1THEH310 

280 FORZ=1TO2000:NEKTZ 

290 FORZ=1T024:PRINT 

292 L=INT <RND<1>*500 > +1 

294 C=INT <RND <1> *8 > +1 

296 POKE7680+L,160 

298 POKE38400+L,C 

299 FOR1TO50 : NEKTX 

300 NEKTZ 
305 GOT025 

310 PR I NT " IL GIOCO E r RIFINITO! ! ■" 
320 PR T NT " si TU 5FT pnVTWOTn » - 
325 FORZ=1T0999:NEKTZ 
330 GOTO320 


List. a. s i rnb o 1 i *i r a.T i c i 

25 : 1 SHIFT HOME =CHR*C147) 

120 : 1 REVERSE =CHR*<18> 

1 SHIFT REVERSE =CHR$<146> 

130 : 4 CRSR4- .-CHRT < 29 > 

137 : 6 CRSR*- =CHR$<29> 

138 : 1 CRSRT =CHR$<17> 

225 : 1 REVERSE =CHR*<18> 

4 CRSR*- =CHR$ 29 > 

1 SHIFT RE VERSE =CHR*< 146Ì' 

250 : 1 REVERSE =CHR$<18> 

2 CRSRT =CHR$C17> 

11 SHIFT CRSR4- =CHR$*::i57> 

1 SHIFT REVERSE =CHRT146> 

310 : 1 REVERSE =CHR$<18> 

1 SHIFT REVERSE =CHR$*:: 146> 
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Vie-DADI 


In questo programma voi ed il VIC (con sottofondo di tuoni, lampi e via di¬ 
scorrendo) lanciate a turno un dado cercando di realizzare un totale (con 
più lanci ovviamente) il più vicino possibile o addirittura uguale a 21, senza 
però superare il 21. 

Questo gioco è una versione, utilizzante dadi, di Blackjack. 

Giocare è molto semplice, dato il RUN non vi resta che muovere: premen- 
zo “Z" lanciate i dadi e con “M" vi fermate, cioè vi tenete il punteggio totale 
che fino a quei punto avete raggiunto. Il vostro totale apparirà sullo schermo 
e potrete decidere se lanciare ancora o no. Una volta che avrete deciso di 
"stare” con quello che avete il VIC lancerà i suoi dadi e con due o tre lanci, 
in media, vi batterà. 



Remarks 


io 

20 


inizializza il contatore dei punti "umani” e quello dei punti del 
computer 


il controllo è passato alla subroutine pazzerellona che casual¬ 
mente sceglie suoni e colori 
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30-80 rileva ed esegue le mosse del giocatore 
90-130 il computer decide se lanciare ancora o "stare" 


140-250 si decide chi ha vinto e comincia una nuova partita 

260 ciclo di ritardo chiamato più volte nel corso del programma 

990 ad A$ viene assegnata una striga con i controlli colore 

1000 in poi da A$ viene prelevato un carattere per cambiare colore, viene 
poi generato un eccitante miscuglio di suoni e colori 


1 REM VIC-OflDI 
7 PRINT"□";CANCELLA SCHERMO 
10 H=0:C=0 
20 GOSUB990 

30 PR I NTBf ; " IF'REM I Z PER LANCIARE" :GOS 
IJB1000 : PR INTBf ; " M QUANDO VUOI FERMARTI " 
35 GETMf : I FMf= " ■' THEN35PRINTBf 
40 I FMf •■= " M " THEN'30 
50 H=H +1 NT RND < 1 > *6 > +1 
60 GOSI.JB2S0 : GOSUB1000 

70 FRI NT :PRINTBf; " IL TUO TOTALE E r a"H 

Il H .i 

75 GOSUB260:GOSUB260:PRINT 
80 GOTO30 

90 IFC>HANDCC22ORC>210RH>210RH=21ANDC= 
21THEN140 

100 C=C+1 NT RND < 1 > *6 > +1 
110 GOSUB2S0 
115 FRINT:PRINT 

120 GOSUB 1000 : PR INTBf ; " IL MIO TOTAL 
E E Va"C"H" 

130 GOTO90 

140 GOSUB 1000 : PR I NTBf- 
150 GOSUB260 :GOSUB1000 :GOSUB260 
170 IFH=COR<H>21ANDC>21>THEN240 
175 PRINT :PRINT :PRINTBf; 

180 IF OHORH>21 > ANDCC22THENPRI NT , " 1111 
■■HO"; 

190 IF <CCH0RO21 > AN0HC22THENPR INT"|||| 
■■HAI"; 
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200 GQSUB1000 :PRINTB*;" VIHTO! !" 

210 G 0 S U E' 2 6 0 
220 GQSUB1000 

225 FORJ=1T07:GOSUB260:NEXT 

226 GOSUB1000 
230 PRINT'3" : RUM 

240 GOSUB1000 :PRINTB$;"SIAMO PARI flMIC 
0 ! " 

250 G0TG225 

260 FORE=1TO500:NEXT 

270 RETURN 

990 R$= " nZSUiihkJiifl" 

1000 B$=MI D$ R$ , < I NT < RHD < 1 > *7 > +1 > , 1 > 
1010 FORJs1TOINT <RND<1> #10> +1 
1020 PGKE36878 ,INT <RHD<1>* 10>+6 
1030 FORK-1 TO I NT < RND < 1 > *7 > +2 
1040 P0KE36876,K+180-1NT C RND C1> *30 > 
1050 NEXTKJ 

1070 POPE36879,INT<RND<1>*3>+28 :P0KE36 
879,8 

1075 P0KE36379,INT <RND<1>*3 >+28 
1080 POKE36879,INT <RND<1>*3 >+28 
1090 P0KE36878,© 

1100 RETURN 


s Hfc a. simboli otr s.T i c i 


I'" 

: 

1 

SHIFT 

HOME =CHR$<147> 

30 

: 

1 

CRIBRA¬ 

=CHR$<29 > 

70 

; 

1 

RE VER' 

SE =CHR$<18> 



1 

SHIFT 

REVERSE =CHRT<146 > 

120 

; 

1 

REVER: 

SE =CHR*d8> 



1 

SHIFT 

REVERSE =CHR$<146 > 

180 

• 

5 

SHIFT 

CRSR+- =CHR* 157 > 

190 

- 

5 

SHIFT 

CRSRa- =CHR$< 157> 

230 

m 

m 

1 

SHIFT 

HOME =CHR$<147> 




GOLF 


in questo gioco vi trovate in un campo da golf a 9 buche. La distanza di o- 
gni buca varia ogni volta che giocate. 

Il programma fa uso dell'istruzione POKE per disegnare il campo e muo¬ 
vere la palla. Il suono è veramente interessante quando la palla va in buca. 
Non è necessario spiegare qui il funzionamento del programma perchè que¬ 
sto compito è affidato alle molte REM che in esso compaiono. 



10 REM GOLF 
15 P 0 K E 3 6 S 7 9... 2 3 
20 SC=0:REM PUNTEGGIO 
30 RV=0:REM MEDIA 

100 FORA-1TU3 :REM CONTEGGIA IL NUMERO 
DELLA BUCA 

105 T=0 :REM TIRI PER LA BUCA 
1 10 D--1 NT C RND 1 > *7 > + 14: REM 
120 PRINT"3" 

125 C=0 
130 M=0 


55 




400 GOSUB6000 

500 GOSUB5000 

510 IFMO0THEH500 

520 I FflBS < M--D > C2THEN8000 

530 GOTO500 

540 END 

5000 FRI NT "gHL33UClì NUMERO" fi 
5005 PRINT,O*19"METRI" 

5010 FRINT 

5012 FRI NT" BPUNTI "SC'li TIRO"T" " 

5015 IFD:=MTHEN3000 
5020 FRINT"UH ISTANZA : " 

5025 IFD—M=>10THENPRINT"1"<D~M>*10"MET 
RI 

5026 IFD-MC10THENPRINT" "<D-M >*10"METR 
I 

5030 FRI NT "IH" 

5040 INPUT"UMICHE MAZZA";C 
5042 T=T+1 

5044 GOSUB7000 

5045 FOKE3S730+M,1 
5047 IF M > D T H E N C=-C 

5060 M=INT CM+C/3*RND<1 +1>> 

5065 C=0 

5070 POKE8010+M,81 
5080 POKE38730+M , 2 
5090 RETURN 
5099 END 

6000 REM DISEGNA IL PRATO 
6010 FORQ=8032TG8119 
6020 F'OKEQ, 102 
6030 POKEQ+33752—8032, 5 
6040 NEXT Q 

6050 POKE3032+D,74 :POKE3033+D,75 
6060 P0KE38752+0,2 :P0KE33753+D,2 
6065 POKE3010+M,81 
6070 POKE38730+M,2 
6100 RETURN 

7000 FORW=128T0180+3*M 
7005 P0KE36878,15 
7020 P0KE36875,W 
7030 P0KE36374,W 
7040 NEXTM 
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7058 F'OKE36875,0 
7060 P0KE36874,0 
7500 RETURN 
8000 T=T-1 

8002 P0KE36876,220 

8003 FQRP=1T05:NEXT 

8004 P0KE36876,0 :P0KE36876,225 :P0KE368 
76,0 

8010 PRINT"MUSEI ARRIVATO IH"T 

8020 POKE8010+M,1 

8030 POKE8032+M,81 

8040 P0KE38774+M,2 

8050 POKE8033+M,102 

8060 P0KE38775+M,5 

8062 80=8U+T 

8065 PRI NT " IIIlfelUMEO I fi " I NT < SC/A+. 5 > 
8070 FORH=1TO5000:NEXT 
8990 NEXTA 
9000 END 


•fca simboli grafi 


120 

• 

■ 

1 

SHIFT 

5000 

• 

■ 

1 

HOME = 



1 

REVER: 

5020 

• 

■ 

1 

CRSR*- 

5040 

■ 

■ 

4 

CRSR-*- 

8010 

• 

• 


CRSR^i- 

3065 

■ 

■ 

7 

CRSR*- 


i 

HOME sCHR*(147) 

:CHR*<19> 

:E =CHR*<18> 

=CHR*<29> 

=CHR*<29> 

=CHR*<29> 

=CHR$<29> 
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FILETTO GRAVITAZIONALE 

(DI G. DI BELLA) 


Il gioco è molto semplice e divertente. Due giocatori, a turno e contrasse¬ 
gnati da colori diversi devono cercare di depositare su una scacchiera 8X8 
cinque pallini consecutivi in file orizzontali, verticali, diagonali. Direte: ‘‘ma 
ci abbiamo già giocato un sacco di volte (a scuola)!" Non si tratta di dise¬ 
gnare, come al solito, i pallini su di un normale foglio quadrettato, ma, ecco 
la novità, di sganciarli impilando ogni nuovo pallino sul vecchio, nelle diverse 
colonne della scacchiera. 

I n altre parole, osservando la figura è possibile depositare il pallino A nella 
posizione (6,1 ) solo se sono già presenti i pallini B (7,1 ) e C (8,1). II calcola¬ 
tore si limita quindi a riconoscere, mediante la scansione completa della 
scacchiera, se qualcuno ha realizzato il filetto. Il gioco gira sul VIC-20 nella 
sua configurazione base e, anche se il programma centrale in sé occupa 
ben poco spazio, le stringhe per la creazione della scacchiera, il corposo 
gruppo di variabili, la piccola presentazione e qualche altro gadget lasciano 
liberi in esecuzione poco più di 150 BYTE. Il listato va copiato con molta at¬ 
tenzione, senza omettere nulla, in particolare il REMARK della linea 5, visto 
che i suoi caratteri vengono poi utilizzati nella creazione dell'intestazione. 
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Remarks 


5-28 

30-200 

210-220 

230-305 

310-330 

340-360 

400-665 

680 

800-810 

900 

850 

910 

920-1090 


La “macchinosa intestazione del programma si avvale anche 
della subroutine 2000; notare quanto occorre per generare due 
secondi di presentazione. Seguono le istruzioni di gioco 

input nomi e stampa del campo di gioco. Il contatore dei pallini 
depositati viene posto a zero 

parte per primo il giocatore col pallino porpora 
si preleva e si smista la mossa del giocatore 
impilazione del pallino 

dalla posizione video del pallino or ora depositato si risale alle 
coordinate X, Y per aggiornare la situazione della scacchiera 
(matrice A) ; viene quindi incrementato il N° di pallini depositati e, 
se questi sono minori di 9 si salta tutta la fase di scansione della 
scacchiera 

é il programma vero e proprio, la ricerca dei cinque pallini in fila, 
dapprima sulle file, poi sulle colonne ed infine su tutte le diago¬ 
nali con almeno 5 caselle 

se la scacchiera si è riempita completamente e nessuno ha rea¬ 
lizzato il filetto la partita si chiude in parità 

il pallino è stato depositato senza provocare nulla, tocca all’altro 
giocatore 

suono che indica una mossa non corretta 
tonfo della pallina sul fondo 

pulisce il buffer riservato alla tastiera dagli ultimi codici dei ca¬ 
ratteri premuti 

proclamazione visiva e sonora del vincitore con la richiesta per 
un'eventuale nuova partita 
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5 REM FILETTO GRRVITRIONFILE 
7 F'R I NT " □" : F'=7 : C=5 : A=4110: FL-30729 :1 =7 
702 : POKE36879, 29 

10 POP E I, 81 : POKEI+FL, C : FORS= 1TO14 : M=2+ 
S : GOSUB2000:NEXT: 1=7702 
15 C=4:P=5:A=4102 :POKE1,81 :POKEI+FL,C: 
F' 0 R S = ITO 7 : M=5+S : G 0 S U B2000 : N E X T 
20 PRINT » BiJliflPigMB aMtiMtiaia DI G. DI BE 
LLA " 

21 FORI = 1TO3000 : NEXT 

22 PRINT"affli METTI 5 PALLIMI IN FILA 

: IN DIAGONALE, ORIZZONTALE 0 VERTICALE 
11 

23 PRINT" :bM Ì»:::ON .331 SI VA A SINISTRASI:: 
ON S3U A DESTRAfflfflUyUKKICON SFM SI 'SGA 
NOIA'sa" 

27 PRINT"SB PREMI UN TASTO" 

28 IFPEEK<197 >=64THEN28 

30 CL..R : G0SUB910 : PR I NT " □SSSI5©" : P0KE3687 
9,31 

40 INPUT" il 1 “ NOME " P1 $ 

41 I NPUT " ;sSB 2* NOME " P2T 
50 A$=" i—i— r —t—i— t—- r— t —1 " 

55 B$=" |——.]—+—F—F—|—| " 

56 C$=" I I I I I I I I I" 

60 PRINT"aaSSB"CHRT<28> " iiii" A*"«=!§" ; 

70 FOR I --0TO6 : PR I NIC* : PR I NTB$ : NEXT : F'R IN 

TC* 

80 F'R I NT "SILI i—i——J—* a" 

90 PR I NT " gHBMS©—ÌMlMJUUmiBUllMII " 

200 V=36878 : G1 =36874 : S C --36879 : D=0 

210 X=7746 : PL=1 :CL=4:8=44 

220 P 0 K E X , 81 : P 0 K E X+30720 , C L 

225 FORM=01020 :HEXT 

230 M=PEEK<197 >:IFM=64THEN230 

240 IFM=41THEN280 

250 IFM=42THEN300 

260 IFMO18THEN230 

265 IFX=7767THENG0SUB900 :GOTO230 

270 P0KEX,32 :X=X+1 :G0T0220 

280 IF X=7746THENG0SLJB900 : GOTO230 

290 F'OKEX , 32 : X=X-1 : GOTO220 
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300 I FF'EEK X+S > O32THENGOSUB900 : G0T022 

0 

305 P O K E X .r 3 2 

310 S=S+44:IF3>352THEN330 
320 I FF’EEK < X+S > =32THENP0KEX+S-44, 32 : PO 
KEX+S,81 :POKEX+S+30720,CL : GOTO310 
330 POKEX+S-44,81:POKEX+S-44+30720,CL: 
GOSUB850 
340 I = •:! S ■-■ 4 4 > .■■'44 
350 Ji= X-7749 > .■•'2+1 
355 GOSUB5000 

360 fi I , J > =CL : D=D+1 :1FDC9THEN800 
400 0=0 : FORK=1T08 
410 I Ffl < I , K > OCLTHEHC=0 : GOTO430 
420 C=C+1 :PC > =7749+1*44+ < K-1 > *2 :1FC=5 
THEH1000 
430 NEXT 

458 IFI>4THEW500 
460 C=0:FORK=1T08 
470 I Ffl < K , J OCLTHENC=0 : G0T0495 
48© C=C+1 :P <C >=7749+K*44+<J-1> *2 :1FC=5 
THEH1000 
495 NEXT 

500 F0RH=5T08:C=0:FORK=HTO1STEP-1 :S=H- 
K+l 

510 I Ffl S , K > <>CLTHENC=0 : GOTO530 
520 C = C +1 : F‘ ■' C > =7749+ S *44+ ■' K -• 1 > * 2. : IF C -- 5 
THENGOTO1000 
530 HEXTK,H 

558 F0RH=2T04:C=0:F0RK=8T0HSTEP-1 :S=H- 
K+8 

560 I Ffl S , K > <>CLTHENC=0 : G0T0580 
570 C=C +1 : P C > =7749+S *44+ <■. K — 1 > * 2 :1F C=5 
THENGOTO1000 
530 NEXTK,H 

600 FORH=4T01STEP-1 :C=0:F0RK=HT08:S=K- 
1 - 1+1 

610 I Ffl < S , K >OCLTHENC=0 : GOTO630 
620 C=C+1 :P<C>=7749+5*44+<K-1>*2 ;IFC=5 
THENGOTO1000 
630 NEXTK,H 

650 F0RH=4TO2STEP — 1 :0=0 :FORK=1T09-H:S= 
H+K-l 
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655 IF A <: S, K > OCL.THENC=0 : G0T0665 
660 C-C+1 :PCC) =7749+3:4:44+ K-1 >*2 :1FC=5 
THENGOTO1000 
665 NEXTK,H 

680 IFD=64THENPRINT"SUUPRRITA'■":GOTO1 
046 

880 I FF'L= 1 THENX=7767 : CL=5 : PL=2 : 8=44 : GO 
TO220 

810 G0T0216 

850 F'OKEV .,15: F'OKEG 1+2., 170 : FORW=0TO7 : HE 
XT : F'OKEG 1 +2., 0 : F'OKEV, 0 : RETIJRW 
900 F'OKEV .,15: FORI =255T0128STEP -1 : F'OKEG 
1 ., I : NEXT : POKEG10 : F’OKEV., 0 : RETURN 
910 FORI=0TO9:GETP1f:NEXT:RETURN 
920 F'OKEV ,15: POKEG 1 +2 , L+128 : L.=L+ 1 : RETU 
RN 

1000 F'R I NT " gUHBRfiVO ” CHRt < 28 > .: : I FF'L= 1T 
HENF'R INTP1 $ ; : GOTO 1020 
1010 PRINTP2T; 

1020 F'R I NT " ij HA I VINTO ! S3" : G0SUB910 
1025 FORJ=0TO3 

1030 FORI = 1T05:POKER < I>,32 :GOSUB920:HE 
XT 

1035 FORW=0TO150 :NEXT 

1040 FORI = 1T05:POKER<I>,81 :G0SUB92©:NE 
XT 

1045 FORW=0TO450 : NEXTW , J ; F0RW=l.T0254 : P 
OKEG1+2,W:NEXT 

1046 FOR I =WTO0STEP- 1 : F'OKEG 1 +2 , I : NEXT : F' 
RI NT"SISFER CONTINUARE PREMI C":F'OKEV,0 : 
F'OKEG 1+2,0 

1050 GETP1T: IFP1T=""THEN1050 
1060 IFF' 1 ■$= "C"THEN30 
1070 PGKE36881,159 

1080 F'R I NT " raMaiimU 11 ; CHR* < 28 > .: " GAMEO 
VER":POKEV,15 

1090 FORI = 159T039STEP-1 :P0KE36881,1:PO 
KEG1 +2 , I +95 : NEXT : F'OKEV , 0 : END 
2000 FOR I =7702T07702+M : F'OKE 1-1,32: POKE 
1,81: POKE I+FL., C : FORT=0TO20 : NEXTT , I : POKE 
I-1,32 

2010 FORW=ITOI+P422STEP22:POKEW-22,32 : 
POKEW,81 : POKEW+FL,C:NEXT:POKEW-22,32 
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2020 POKEWPEEK < fi+S > +64 : POKEW+FL , 2 : RET 
URN 

5000 F0RTK=38T042:P0KE36865,TK:NEXTTK 
5010 F0RTK=42T038STEP-1:P0KE36865,TK:N 
EXTTK:RETURN 


L i sta s i mbo 1. i graf i c i 


? 1 SHIFT HOME =CHR*<147> 

26 : 13 CRSRT =CHR$C17> 

22 : 1 SHIFT HOME =CHR$<147> 

1 CRSRT =CHR$<17> 

CRSRT =CHR$«.17> 

REVERSE =CHRT 1S> 

SHIFT REVERSE =CHR*<146> 
CRSRT =CHR*<17> 

REVERSE =CHR$<18> 

SHIFT REVERSE -CHR$<146> 
CRSRT =CHR-f 17 > 

CRSR*- =CHRT 2y ) 

REVERSE =CHR*<18> 

SHIFT REVERSE =CHR$<146> 
CRSRT =CHR$<17 > 


cL r 

n 

1 

CRSRT 

=CHRi : < 17 > 

30 

■ 

1 

SHIFT 

HOME =CHR$<147> 



5 

CRSRT 

=CHRtC17> 

41 

: 

1 

CRSRT 

:-CHRT 17 > 

60 

; 

1 

SHIFT 

HOME =CHR*<147) 



4 

CRSRT 

=CHR*<17> 

Q 

CO 

JJ 

2 

CRSR+- 

=CHRT '•! 29 ) 



1 

HOME = 

CHRT <19 > 
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90 

: 

1 

HOME =CHR$<19> 



5 

CRSRt =CHR$<17> 



17 

CRSR*- =CHR^C29> 

680 

. 

1 

HOME =CHR$<19> 



1 

REVERSE =CHR*C18> 



1 

SHIF T RE VERSE =CHR$ < 146 > 

1000 

; 

1 

HOME =CHR$C19 > 



1 

RE VERSE =CHR$<: 18> 

1020 

: 

1 

SHIFT REVERSE =CHR$<146) 

1046 

• 

1 

HOME =CHR$<19> 



1 

CRSRt :=CHR't ; (. 17} 

1080 

. 

1 

SHIFT HOME =CHR*<147> 



■"> 

CRSRt =CHRT 17> 



t* 

CRSR*- =CHRt<29> 
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PRO VARI FLESSI 

(di R. CO MINI) 


Questo, come dice il nome, non è un gioco, ma un provariflessi, uno stru¬ 
mento atto a verificare la nostra velocità di reazione sotto uno stimolo sia a- 
custico che visivo. 


Funzionamento 


Una volta dato il RUN “gira" la presentazione. Per partire basterà 
premere un tasto qualunque. Tre segnali acustici indicheranno l'inizio della 
prova, dopodiché lo schermo si farà completamente bianco, dopo un lasso 
di tempo variabile (pochi secondi) tutto lo schermo diverrà rosso e si udrà in 
contemporanea un fischio. Nell’istante in cui udremo il fischio e lo schermo 
diverrà rosso dovremo, il più velocemente possibile, premere la barra. Al se¬ 
gnale acustico il calcolatore inizia un veloce conteggio che si ferma appunto 
con la pressione della barra. Dopo aver premuto la barra al centro compa¬ 
rirà il numero a cui siamo riusciti a bloccare il conteggio. Tale numero potrà 
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al minimo essere 1 (praticamente impossibile riuscirvi) ed al massimo 350, 
nel qual caso vuol dire che siamo arrivati troppo tardi a premere la barra: 
poiché questo è il limite massimo di tempo che abbiamo a disposizione per 
bloccare il conteggio dopo aver udito la segnalazione. Il numero da noi tota¬ 
lizzato rimane al centro dello schermo qualche istante poi lo schermo si fa di 
nuovo bianco e dopo un'attesa, che è variabile, come già detto, ci sarà la 
nuova segnalazione acustica cui rispondere (pressione della barra). 

Dopo che il tutto si sarà ripetuto 5 volte (tante sono le prove a nostra di¬ 
sposizione) apparirà la classifica con il nostro livello di riflessi. Il punteggio 
da noi realizzato ci classificherà in uno dei 10 livelli che il calcolatore ha a 
disposizione. Il primo livello, difficilissimo da raggiungere, è “BOREALE", e 
l’ultimo, praticamente corrisponde a non aver mai premuto in tempo la bar¬ 
ra, è "NON ESISTE”. Tra il primo ed il decimo livello ci sono naturalmente i 
livelli intermedi. Alla fine della prova il computer ci chiederà se vogliamo far¬ 
ne un'altra, se rispondiamo si tutto ricomincia, altrimenti il programma ter¬ 
mina di "girare". 

ATTENZIONE: se siamo troppo nervosi e premiamo la barra prima del se¬ 
gnale acustico l'intera prova ci verrà, alla fine, annullata e ci verrà segnalato 
il nostro nervosismo. 

Con questo riflessometro possiamo quindi, più per divertimento che per 
altro, cimentarci col computer cercando di migliorare sempre più i nostri ri¬ 
flessi. 

Il programma 

Il programma è scritto per il 50% in BASIC e per il restante 50% in lin¬ 
guaggio macchina: l’uso del linguaggio macchina rende possibile una note¬ 
vole velocità. 

Le routine in linguaggio macchina si inseriscono nel seguente modo: per 
ogni routine è riportato in Figura 1 il contenuto di tutte le locazioni di memo¬ 
ria, ad esempio per la "controlla” sono riportati 17 valori numerici. Ora 
poiché la “controlla” va (come specificato dalla tabella di Fig. 1 ) dalla loca¬ 
zione 6335 alla 6351 dovremo introdurre i valori numerici dati tra queste due 
locazioni. Per fare questo creeremo una linea di programma così: 

10000 FORI = 6335 TO 6351 : PRINTI : INPUTX : POKEI, X : NEXT 

fatto questo si dà RUN10000 e uno dopo l’altro si inserisono i valori della 
routine. Fatto questo la nostra routine è in memoria, e sempre con questo 
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procedimento (modificando di volta in volta la linea 10000) caricheremo in 
memoria tutte le altre routine. Attenzione: con lo stesso procedimento do¬ 
vremo pure riportare i 506 valori numerici inerenti alla immagine della clas¬ 
sifica, che vanno inseriti dalla locazione 6700 alla 7205 (Fig. 2). Fatte tutte 
queste operazioni il difficile è ormai superato. È necessario fare attenzione 
perchè un solo numero sbagliato può causare la perdita di tutto il program¬ 
ma (il computer si potrebbe "inchiodare”): digitare i vari numeri con calma è 
indispensabile. 

Ora non resta che inserire il testo BASIC (ricordandosi prima di togliere la 
linea 10000 che abbiamo appena usato), prestando molta attenzione per gli 
indirizzi delle SYS. Completato il tutto è utile, prima di dare il RUN, salvare il 
tutto su cassetta, onde evitare di perdere tutto, magari per un errore banale. 


Il Save 

Se si desse a questo punto il SAVE, quello che salveremmo su cassetta o 
disco sarebbe solo il programma BASIC e non le routine in linguaggio mac¬ 
china: questo avviene perchè il computer non "vede” queste routine, in 
quanto i puntatori riguardanti il programma puntano alla fine del BASIC. Il 
resto viene considerato memoria vuota a disposizione del sistema operativo 
(per le variabili ecc), quindi procederemo così: controlliamo innanzitutto il 
list onde verificare grossolani errori, dopodiché diamo un CLR. 

Vediamo ora i contenuti delle locazioni 45 e 46 con 
PRINT PEEK (45), PEEK (46). 

I due valori, ottenuti sono parte bassa e parte alta del puntatore alla fine 
del programma BASIC. Per avere l’indirizzo effettivo bisogna moltiplicare la 
parte alta per 256 e aggiungere la parte bassa. Scriviamo ora i due numeri 
su un foglio che faremo attenzione a non perdere e procediamo allo sposta¬ 
mento dei puntatori. 

Diamo 

POKE45.152 : POKE46.28 : POKE47.152 : POKE48.28 
POKE49.152 : POKE50.28 

Fatto? Ora il sistema operativo "vede" il programma come se finisse alla 
locazione 7320. Possiamo perciò dare il SAVE, e su cassetta verrà salvato 
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non solo il testo BASIC ma anche tutta la memoria con le routine in L.M. 

Diamo pure il RUN senza paura (il tutto è salvo). Se ci fossero errori nel 
BASIC o volessimo apportare delle modifiche dovremmo, prima di toccare il 
list, riportare i tre puntatori (45 e 46 47 e 48 48 e 50) al valore iniziale che 
avevano (lo abbiamo segnato su un foglio) 

POKE45XXX : POKE46YYY : ecc, dove XXX rappresenta la parte bassa 
ed YYY la parte alta dei puntatore. 

Fatte le modifiche prima di salvare il programma dovremo nuovamente 
vedere il valore dei puntatori (basterà quello del primo, loc. 45 e 46) e ricor¬ 
darlo per eventuali altre modifiche. Sposteremo poi i puntatori, come già fat¬ 
to, e salveremo. Tutte queste operazioni andranno fatte per ogni modifica. 

Un consiglio: per non stare a scrivere ogni volta il valore dei puntatori è u- 
tile creare una linea così 

REM PUNTATORI 000 - 000 

e dopo aver visto i valori di questi, li scriveremo nella linea al posto degli ze¬ 
ri; Es. se i valori fossero 100,26 scriveremo cosi: 

REM PUNTATORI 100 - 026 


senza nè allungare nè accorciare la linea (cambierebbero i valori). In questo 
modo sapremo sempre come modificare i puntatori onde apportare modifi¬ 
che. 

Si sconsiglia vivamente di allungare il testo BASIC. 


Suggerimenti 

- una modifica semplice da apportare è quella relativa al colore delle frec¬ 
ce nella graduatoria finale: basta "pokare” nella locazione 6241 il valore 
del colore desiderato. 

- per cambiare invece il colore di tutta l’immagine della graduatoria si agirà 
con POKE6204.XX : POKE6218.XX dove XX rappresenta il valore del 
colore desiderato. 
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Remarks 

20 inizializza il volume, il colore e aggiusta l’inizio della routine 

CONTROLLA 

100-105 inizializzazione della CELLA B e segnale acustico di inizio prova 

110 ciclo che permette la ripetizione della prova per 5 volte 

500 attesa random 

520-560 lancio della routine CONTEGGIA, e visualizzazione del risultato 

570 I risultati delle 5 prove vengono sommati (sono prelevati dalle 5 
CELLE B) 

580-585 viene fatta una pesata media delle prove ed il risultato è memo¬ 
rizzato in FI 

587-589 segnalazione di barra premuta anzitempo ed annullamento della 
prova 

590-600 visualizzazione risultato e classifica 

610-640 conclusione 

1000-1150 presentazione 

2000-2050 musichetta iniziale 


2 REM 4 

3 REM RI FLESSOMI!-: IRÒ * 

4 REM 4 

5 REM BV 4 

6 REM COMI HI RE MB IO 4 

? REM 1983 4 


9 CO T'02000 

10 R E M P U N T 1" O RI 110 0 ; 
20 PQKE36878 .,15: P0KE36879, 25 : POKES 

165 :POi<E6015.-0 
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1©5 PRINT"□" :PORLI=1T03 :P0KE36876,238sF 
0RG= 1. TO600 : NEXTG : P0KE36876, 0 : F0RH= 1TO50 
:NEXTH.,W 
110 FOR J=1T05 
120 PRINT"□":P0KE36879,25 
580 FORL=1T0INT<RNDC1>*300> +450 :SVS633 
5 :NEXXL 
520 SVS6020 

53tì V= PEEK < 6001 ;• *256 > +PEEK < 6000 > 

540 pr i nt " aiiiiijuiLi'MfiieMasisiaffl" v 

550 FORS=1TO500:NEXTS 
560 NEXTJ:P0KE36879,25 

570 F1 .-0 : FOR I --6003TO6011 STEF'2 : F1 =F 1 + < P 
EEK<I>*256+PEEK<1-1>>:NEXT 
580 F1-1NTCF l/1 75 > +1 

585 IFF1=11THENF1=10 

586 POKE6800., 1 :P0KE6754, 1 

587 IF PEEK<6015 >=0THEN590 

PO NERVOSO*" CHRf < 28 > " l!9II«IIIIIH»F: I PRO 
Vfl"CHR# <31> 

589 :FORI=1TO2500:NEXT:GOTO1000 

590 SVS6195 :FOR I-1TO30O:NEXT;FORI = 1T09 
:FORK=1TO100 :NEXTK:SVS6285:NEXTI 

600 FORI = 1TOF1 :SVS6285:FORQ=1TO2O0:HEX 
TQ:NEXTI :FORJ=1TO2800:NEXTJ 
610 PR I NT " g JlPlmMglBMBlglff » li » > r-i IOCHI ANCOR 
8 SIIIIIIIIIIHI N " 

620 GETRt : IFRf=""THEN620 
625 IFRT-O " S " ANDRf-O " N " THEN620 
630 IFR*="S"THEN10 
640 IFR$="N"THENEND 

1000 PR 1 NT“ ^MiìffiMgaMLllIJF 'RO'v'A I TUOI" 
: PR I NT " HWM UaR IFLESSI ■" 

N TASTOj!iailÌ||||||||FER INIZIARE" 

1010 F0RE=1T05SFORI=4T07:FORJ=38605TO3 
8612 :POKEJ,I :NEXTJ 
10 2 U F UR K. = 1T i J 3 8 ; NE X T K. r I . E 
1030 P0KE6754 , 1 : POKE6300 , r 1 
1100 SVS6195 :FORI = 1TO300:NEXT 
1105 TI $= "000000" 
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1110 SVS6285 : FORI = 1T086 : HEXT : IFTI $> " 00 
0088"THEN1000 

1120 IFPEEK<197 > =64THEN1110 
1150 GOTO 16 

2000 DRTR225,360,225,360,225,240,2281 
20, 231,360,231 , 240,228 , 120, 231,240,232 , 
120 

2010 DRTR235,720,240,360,235,360,231,3 
60,225,360,235,240,232 , 120, 231 .,240,228 , 
120,225,480 

2015 X=36875:P0KE36878,15 :PRINT"□":POK 
E36879,25 

2020 FOR 1 = ITO 19 :REFlDH :RERCiO :POKEX,N sGO 
SUB2O50 : FORT= 1TOD/2 : NEXTT : F'OKEK , 0 : NEXT : 
GOTO1000 

2050 H= IHT RND < 1 > *500 > : POKE7680+H , 160 : 
POKE38400+H,INTERNO<1>*7+1>:RETURN 


L i sta s :i rubo l i cir a.f i c i 


105 : 1 SHIFT HOME =CHR$<147> 

120 : 1 SHIFT HOME =CHRT'■ 147> 

540 : 8 CRSR+ =CHR*<29> 

10 CRSRT =CHR$<17> 

588 : 1 SHIFT HOME =CHR*0 47> 

8 CRSRT =CHR$C17> 

2 CRSR<- =CHRÌ : < 29 > 

1 SHIFT REVERSE =CHR$<146> 
1 CRSRT =CHR# C17 > 

12 SHIFT CRSR+ =CHR$<157> 

610 : 1 SHIFT HOME -CHRT< 147> 

10 CRSRT =CHR$ < 17> 

4 CP.SR+ =CHR*<29> 

1 CRSRT -CHP.f < 17 > 

12 SHIFT CRSR+ =:CHR*< 157> 
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1000 


: 1 SHIFT HOME =CHR$<147> 

8 CRSRT =CHR*d7> 

12 CRSR*- =CHR$ 29 > 

1 REVERSE =CHR$<18> 

1 SHIFT REVERSE =CHR$<146> 


1005 


1 

15 

4 

1 

13 


HOME =CHR*<19> 
CRSRT =CHR-T < 17 


CRSR*- =C 
CRSRT =t 
SHIFT C 


HRT C 29 > 

HR^C17? 
RSRt- =CHR*C 


2015 


SHIFT HOME ==CHR*-:: 147? 


CODICE MACCHINA DELLE VARIE ROUTINE 
I numeri vanno inseriti per colonne 

- CONTEGGIA (6020 - 6143) 


169 

141 

23 

23 

200 

113 

165 

105 

141 

23 

197 

2 

12 

32 

201 

141 

144 

6 

32 

192 

169 

24 

208 

23 

42 

173 

203 

173 

141 

113 

173 

207 

15 

23 

112 

23 

144 

201 

23 

105 

169 

1 

141 

2 

0 

208 

114 

141 

141 

20 

23 

207 

1 • o 

173 

173 

23 

23 

112 

113 

173 

141 

23 

23 

213 

113 

201 

141 

23 

23 

94 

115 

105 
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24 

208 

23 

2 

173 

13 

234 

141 

112 

169 

24 

213 

23 

94 

24 

23 

105 

141 

173 

169 

1 

114 

187 

0 

141 

23 

23 

141 

112 

169 

105 

12 

23 

1 

2 

144 

173 

141 

141 

96 

113 

115 

187 


23 

23 

23 


105 

76 

173 


0 

216 

192 



- DELAY 

(6150 

- 6169) 

162 

234 

239 

0 

192 

96 

160 

8 


0 

208 


200 

246 


234 

232 


234 

224 


234 

7 


234 

208 



- PRELOCB (6175 

- 6191) 

169 169 

96 

114 115 



141 

141 

187 

192 

23 

23 

141 

141 

207 

213 

23 

23 
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FLASH (6195 - 6235) 


162 

157 

133 

0 

255 

1 

189 

30 

96 

44 

169 


26 

4 


157 

157 


0 

255 


30 

150 


169 

232 


4 

224 


157 

250 


0 

208 


150 

240 


232 

169 


208 

25 


242 

133 


189 

0 


43 

169 


27 

150 



- COL (6240 - 6279) 


169 

145 

0 

160 

37 

4 

0 

160 

15 

145 

76 

160 

23 

145 

0 

103 

1 

145 

0 

96 

24 

145 

0 

160 


169 

0 

160 

36 


1 

160 

14 

145 


160 

22 

145 

0 


0 

145 

0 

160 



- SPOSTA 

( 6285 

- 6329) 

165 

169 

165 

0 

25 

0 

201 

133 

105 

165 

0 

44 

208 

169 

133 

20 

150 

0 


76 



165 

1 

201 

151 

208 


14 

32 

101 

24 


133 

1 

76 

96 

24 


32 

101 

24 

24 


165 

1 

105 

0 

133 


1 

76 

96 

24 


- CONTROLLA (6335 - 6351) 


165 

169 

197 

96 

201 

141 

64 

191 

240 

24 

10 

96 

169 


1 


141 


127 


23 



LE ROUTINE IN LINGUAGGIO MACCHINA 


CONTEGGIA 

DA 

6020 

A 

6143 

DELAY 

DA 

6150 

A 

6169 

PRELOCB 

DA 

6175 

A 

6191 

FLASH 

DA 

6195 

A 

6235 

COL 

DA 

6240 

A 

6279 

SPOSTA 

DA 

6285 

A 

6329 

CONTROLLA 

DA 

6335 

A 

6351 
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FEBBRE DELL’ORO 


È questo un semplicissimo programma che puoi usare come cuore di altri 
programmi quando vuoi nascondere qualcosa in una scacchiera. 

In questo caso la scacchiera (o meglio il terreno di gioco) é 10 per 10 at¬ 
traverso varie mosse cercherete di trovare l'oro. 


Remarks 


10-20 l'oro viene nascosto 

30 ciclo che conta i tentativi 

60 accetta la mossa del giocatore, tramite due numeri 

130-190 esegue la mossa e fornisce precise indicazioni su come trovare 
l’oro 

210-220 se l’oro non è stato trovato dopo 10 tentativi il gioco ha termine 
230-260 fine del gioco e scoperta della posizione dove è situato l’oro 
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Suggerimenti 


— cambiare la forma della scacchiera (triangolare?) 

— aggiungere delle ambiguità nell’indicare l'ubicazione dell'oro 

— usare suoni diversi per segnalare la distanza dall’oro, note acute quando 
è vicino, gravi quando è lontano 

— aggiungere suoni alla routine di vincita 


1 REM FEBBRE DELL'ORO 
7 P0KE36879,15 
3 PRINT "□" 

10 A=I NT RNO 1 > * 10 > +1 
20 B=INT<RHD<1 > * 10 > +1 
30 FORZ--1TO10 
35 PR I NT " li" : PR I NT 
40 PRINT"liJUUJUHflI SOLO" 

45 PR I NT " " 10-Z ; " iTENTAT IVI ! " 

50 PRINT"a a DOVE E-' L'ORO"; 

60 INPUTM:C=INT <M/10>:D=M~C*10 
70 IFfl=CHNDB=DTHEN230 
130 PRINT:PRINT" NON E' R";C;D 
135 PRINT 

140 PRINT" TI DO-' UN AIUTO" 

150 PRINT'V VAI A "; 

160 IFfl>CTHENPRINTCHRf<28>"SUDa" ; 

170 I FACCTHENF'R I NT " B'IORDB" ; 

180 IFBCDTHENPRINT"UOVESTa" 

190 IFEODTHENPRI NT " ^STB" 

200 NEXTZ 

210 PRINT :PRINTCHR*<28>" IL TEMPO E " P 
ASSATO" 

215 PRINT"a aL'ORO ERA A";R;B 
220 END 

230 PRINT"aSWULOI'1?fOIiJLiirfcjD li! 

! " 

240 S=RNDC 1 * 10000 
245 PRINT"3" 

250 PRINT"HAI TROVATO V ;INTCS/Z); 

255 F0RT=1T0555 rNEXTT 
260 GOTO250 
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L i sta. s i rubo l i gr-a.t i c i 


o 


1 

SHIFT 

HOME =CHRS<147> 

40 


6 

CRSR<^ 

=CHR$ <■. 23 > 

50 


1 

CRSRt 

=CHR# <17 > 

215 


1 

CRSRt 

=CHR*<17> 

230 


2 

CRSRt 

=CHR$<17> 



5 

CRSR*- 

=CHR$ >' 29 > 
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ASTEROIDI 


In questo programma di Burbidge voi siete alla guida di una nave stellare. 
Improvvisamente vi trovate in mezzo ad uno sciame di asteroidi. Soltanto voi 
potete salvare la nave dalla distruzione. Voi siete il quadretto nell'angolo in 
alto a sinistra dello schermo. Appena dato il RUN vedrete gli asteroidi com¬ 
parire in diverse posizioni. Usando i tasti di controllo (4 = a sinistra, 6 = a 
destra) vi dovete tenere lontano dagli asteroidi (i quali sono costituiti da 
masse gelatinose). 

Mano a mano che il gioco procede la difficoltà aumenta, aumenta il nume¬ 
ro degli asteroidi ed il loro colore varia. 


1 REM RSTEROIDI DI fìORM BURBIDGE 

2 REM RIVISTO DR COMINI REMATO 

3 REM MEMORIA 3,5 K 

4 SC=0:HS=0 

5 FRINT"3" 

1© FORJ=1TOSO :PRINT :NEXT 
11 P0KE36873255 
40 P0KE7746102 
43 B=38466 
45 P0KE38466.-4 
50 FORT =1TO300:NEXT 
60 0=7746 
65 POKER32 

70 GETA* : IFA*="4"THEHP0KER-21 .,32 : POKER 
-22,32 :POKER-32,32 :R=A-1 : B=B-1 

71 IFA$="6"THENPOKER—32,32 :POKEA-22,32 
: POKER-2132 : A=fì+1 :B=B+1 

72 F'OKfeR- 21,32 

73 POKEA-22.,32 

74 POKER-32,32 

75 POKER .r 102 

76 F'OKEB , 4 

77 FORT =1TO100 :NEXT 
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78 IF F'EEK < R+22 > =81THEN200 

88 X=1NT <END <1>#506 >+7680 
8 9 P 0 K E X+307206 
90 POKEX .r 81 
93 IFSO400THEN500 

95 IFSO300THENGOSUB400 

96 IFSO200THENGOSUB350 
1.00 PEI NT 

110 G0T065 
200 POKE36877,220 
210 FORL=15TO0STEP-1 
220 P0KE36878L 
238 FOEM=1TO50 
240 NEXTM 
250 NEXTL 
260 P0KE36877-0 
270 P0KE36878-0 

280 PEI NT" iiSRSTRONRVE DISTEUTTfl ! SS" 
285 PEI NT " PIJNTI = " ; SC 

236 IFSOHSTHENPEINTCHET < 28 > " MBMW flX. 
PUNTEGGI0=";SC:HS=SC 
287 IF3C CH3THENPR I NT " fIRX. PUNTEGG 10= " ; H 

290 FOET =1TO5000 : NEXT 
295 SC=0 
300 GOTO5 

350 V=INT CEND <1> #506 >+7680 
360 POKEV ,r 81 
370 POKEV+307202 
330 RETURN 

400 D=INT <END <1>#506 >+7680 
410 POKED.,31 
420 POKED+30720 r 5 
430 RETURN 

500 PEI NT" ■JgriOLTO BENEBS" 

510 PEINTCHE^<:28>" EMISSIONE COMPLETE 
TRB" 

520 P0KE36373,13 

530 P0KE36876,135 

540 FOR 0=241TO180STEP-1 

550 F0RM=1T05 

555 P0KE368760 
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560 NEXT M 
570 NEXT 0 
500 POKE36876.-0 
590 P0KE3687S,© 
608 END 



L i s+a. s i rnbo 1 i graf lei 


5 

- 

1 

SHIFT HOME =CHR$<147> 

280 

m 

m 

1 

REVERSE =CHR*<18> 



1 

SHIFT REVERSE =CHR$<146> 

286 

m 

2 

CRSRT =CHR#C17 > 




CRSR^ =CHR*K29> 

500 

JJ 

1 

REVERSE =CHR# <18 > 



1 

SHIFT REVERSE =CHR$<146> 

510 

: 

1 

RE VERSE =CHR$<13> 



1 

SHIFT REVERSE =CHR$C146> 
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MUSIC - VIC 


Questo non è un gioco ma un piacevole passatempo che ci potrà accom¬ 
pagnare durante le ore "programmative". Caricato il programma e dato il 
Run si udirà, come per incanto, la ormai famosa musica di STAR WARS. La 
melodia continuerà senza interruzioni e noi potremo, nel frattempo, compor¬ 
re altri programmi e lanciarli senza che questa subisca la benché minima in¬ 
terruzione. Inutile stare qui a spiegare il funzionamento di questa routine in 
linguaggio macchina, basti dire che essa fa uso di un interrupt chiamato ogni 
sessantesimo di secondo. Per interrompere la melodia basta dare il RUN 
STOP + RESTORE e per riascoltarla basta SYS 830. 

Attenzione perchè essendo la routine immagazzinata nel buffer della cas¬ 
setta l’uso del tape ne compromette il funzionamento, quindi non bisogna 
caricare programmi da cassetta. 


10-VIC—MUSIC- 

60 P0KE3S878 .-15: 

70 FORI =830TO976 : REflDC : F'OKE I - C : NEXT 

80 SVS830 

100 DRTR 1201635141 - 603169, 6141 6 
1, 3 , 169133133,0 , 1693133,1 16993 , 14 
1 203 -163,. 3 

110 DOTA 141.-21,3,88,96,286,61,3,288,28 
,72,152,72,172,60 

150 0RTR3,200,177,0,141,61,3,200,177,0 
,201 

160 DRTR1,240,12,141,12,144,140,60,3,1 
04 

170 DRTR168,104,76,191,234,168,255,208 
, 243 

190 DRTR15,201,15,201,15,201,60,215,60 
,228,15 

200 DRTR225,15,223,15,219,60,235,35,22 
8,15 
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210 DRTR225 , 15223 , 15,21960,235,35., 22 

8.15 

220 DRTR225 .,15., 223 .,15., 225., 60., 21 9 ., 35., 20 
1 , 15 

230 ORTR201., 60., 215., 60., 223 .,15., 225 .,15., 22 
3., 15 

240 DRTR21 9 ., 60., 235., 35,228., 15., 225 .,15., 22 
3., 15 

250 DRTR219., 60., 235., 35., 228 .,15., 225 .,15., 22 

3.15 

260 DRTR219,6© , 235,1,1 
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GUARDIANO DEL TEMPO 


In questo gioco-sfida, scritto da ADAM Burbidge di Crawley, tu devi recu¬ 
perare le 6 parti della chiave del tempo. La tua astronave parte con 700 punti 
di energia ed ogni mossa ti costa 5 punti. 

Appena dato il RUN appare il messaggio "sto creando la galassia", il VIC 
sta cioè creando l’universo dove giocherai. Dopo un breve ritardo, lo scher¬ 
mo sarà cancellato e sarà il momento delle decisioni. 

Il VIC vi chiederà spesso le coordinate, stampando: 

QUADRANTE (inserisci un numero tra 1 e 6) 

SETTORE (inserisci un numero tra 1 e 6) 

SETTORE (inserisci un numero tra 1 e 6) 

TEMPO (inserisci zero o uno) 

Quando atterri su un pianeta ostile il VIC stamperà “nave all'attacco" e 
"energia" più il valore di quest’ultima. Devi allora necessariamente e nel mi¬ 
nor tempo possibile premere un tasto per fuggire dal pianeta ostile, infatti o- 
gni combattimento consuma energia. 

Di tanto in tanto troverai delle parti della chiave di Chronos, è lo scopo del 
gioco. Per vincere devi trovare tutte le sei parti della chiave e devi trovarle 
prima che l'energia della nave sia finita. 
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2 REM GUARDIANO DEL TEMPO 

3 REM DI ADAM BURE! I DO E 

4 REM RIVISTO DA DOMINI RENATO 

5 DIMK"'.’ < 4 > ,Z-$ <: 1 > , AX C 6 , 6, 6, 1 > 

E KX ■:! 3 ) = 7'@0 :F=75 

10 PRINT"□" 

20 PR I NT " HuSMlftJGREO LA CALASSI Al" 

30 B= INTERNO-:: 1 >*6> 

40 C=INT<RNDC 1 >:+6> 

50 D= INTERNO 
SO E= INT < RND C1> *2 > 

78 A7: B , C:, D , E > =2 
75 F=F-1 :IFF<0THEN85 
80 DOT030 
85 PRINT"3" 

90 GN= I NT < RND C 1 > *2 > +1 

100 PR I NT "HiJUJlJlF'ART I A GLODNOBBS" 

105 PRINT 

110 PRINT ,, |*JUUUUMaUADRANTE 5" 

115 PRINT 

120 PRINT"!>» II»II »SETTORE 3,4" 

125 PRINT 

138 PR I NTCHRf < 28 > " IMUIMUSTEMPO" GN* 100 
0 : PR I NT " aBttlUF NN I TERRESTRI " 

135 PRINT 

140 PRINT";! COORDINATE" 

150 INPUT "KlfeKUQUADRANTE " ; G 
160 I NPUT " KftflyUUUySETTORE " ; H 
165 PRINTCHRT <.28 > 

170 I NPUT " WMIUK ETTORE " I 
180 I NPUT " I1UTEMP0 C 0, ' 1 > " ; J 

i s 5 k x < 3 > = k x < 3 > - 5 

130 I FA*: <: G , H , I , T > = 1THENPRI NT " dUSE I SU 
GLOBNOB"SGOTO90 
200 I FA*: G , HI , J > > 1THEN300 
210 PRINT"! SUUP R 0 F 0 N D 0 SPAZIO" : GOTO 14 

0 

300 PRINT"! SEI SU UN PIANETA" 

310 PR I NT " aaiHIB UADR ANTE " G 
320 PRINT"«WUL1OI3ETT0RE"H; ; I 

*7::' 

340 KX 1 > = INT < RND < 1 > *20 > +1 
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350 IR 1 >>5THEM3?0 

360 PRINT"lOAMMOIi#3Ri*:I«TR^TOS" = GOTO 
I 40 

370 I FI 1 >3 10THEN400 
388 PRINI" ztt 8JUUPJPIBITRNTI 0STILISSI" :00T 

0 500 

3 9 0 P RI I I T ' ' &KJMIHU4U1JH RI ' ' 

400 REINT" PORTE DELLA CHIAVE DlfillJW 
I*IUM!1ì::HR0NOSH" 

410 I '. '2 2 ■ t 1 

420 ERI NT" HAI ORA " K.7 T 2 > " PARI I DELLRJJU 
UUUWSI2 HI A V E 11 

430 IFK": 2 > =6THEHPR I NT "■ aWHMMH R I VI NT 
0" : ENEI 
440 GOTO140 
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500 GETZ$<1> 

510 IFZ$ <1> = ""THEN540 
520 GOTO140 

540 FRINT" IGNAVE ALL'ATTACCO!■" 

550 KJi 3 > =KK < 3 > - 1 NT < RND < 1 > *50 > +1 

560 FRI NT ";i ENERGIA NAVE : J3" CHR# •' 28 > KM 

<3> 

565 I F'KZ 3 > C1THENPRI NT " NAVE DISTRUTT 
A":END 

570 FORT=1TO200:NEXT 
580 GOTO50© 


List b. siriiboli *ira.fici 


10 : 1 SHIFT HOME =CHR*<147> 

20 : 1 REVERSE =CHR*C18> 

3 CRSRt- =CHR#<29> 

1 SHIFT REVERSE =CHR$<146> 

85 : 1 SHIFT HOME =CHR$* 147> 

100 : 1 REVERSE =CHRt<13> 

4 CRSR*- =CHR$<29> 

1 SHIFT REVERSE =CHR$<146> 

110 : 7 CRSR*- =CHR*<29> 

120 : 3 CRSRt- -CHRT < 29 > 

130 : 7 CRSR^- =CHRT <! 29 > 

2 REVERSE ==CHRt < 18 > 

1 CRSRT =CHR$-::i7> 

5 CRSR«- =CHR*<29> 

15© : 5 CRSR-H =CHR*<29> 

160 : 7 CRSR*- =CHR«<29> 
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170 


f" 

CRSR*- =CHR*<29> 

180 

• 

■ 

p t 

CRSR4- =CHR$<29> 

190 

■ 

■ 

1 

REVERSE =CHR$<18> 

210 

• 

1 

CRSRt =CHR* < 17 



o 

CRSRt- =CHR$<29> 

310 

; 

1 

REVERSE =CHR$ C18 > 



5 

CRSRt- =CHR*<29> 

320 

■ 

■ 

r‘ 

CRSRt- =CHR^<29> 

330 

■ 

Q 

CRSRt- =CHR$(29) 

360 

; 

ì 

REVERSE =CHRf<18> 



cr 

CRSRt- =CHR*<29) 

380 

■ 

1 

REVERSE =CHR^<18> 



4 

CRSRt- =CHR$<29> 



1 

CRSRt sCHRSCl?) 

390 

■ 

« 

1 

REVERSE =CHR* < 18 > 



9 

CRSRt- =CHR$'::29> 

400 

. 

1 

REVERSE =CHR$ C 13 > 



1 

CRSRt =CHR$<17 > 



y 

CRSRt- =CHRt 29 > 



i 

SHIFT CRSRt- =CHR*<1 



i 

SHIFT REVERSE =CHR* 

420 

■ 

i 

CRSRt =CHR$<17> 



6 

CRSRt- =CHR*<29> 

430 

; 

1 

RE VERSE =CHR$(18> 



5 

CRSRt- =CHR$ < 29 > 

540 

; 

i 

REVERSE =CHR*<18> 



i 

SHIFT REVERSE =CHR$ 

560 

- 

i 

REVERSE =CHRT C18 > 


SHIFT REVERSE =CHR*<146> 
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DAMA 7 PER 7 (I VECCHI DEL 49) 


Il gioco è come la dama tranne che, come ho detto, si gioca su una scac¬ 
chiera 7 per 7 (da qui il nome del gioco). 

I pezzi si muovono come a dama, cioè diagonalmente di una casella, sal¬ 
tando sopra un avversario in una casella vuota al di là della stessa per man¬ 
giarlo. Le principali differenze con la dama sono che, a parte la scacchiera, i 
pezzi possono muoversi a piacere avanti ed indietro, non vi sono damoni 
(ma è come se ogni pezzo lo fosse) ne’ salti multipli. Il computer muove i 
Cuori sullo schermo e tu i Picche. Tu muovi mettendo il n° della casella da 
cui ti stai muovendo (scrivendo prima ordinata e poi ascissa ed infine dando 
RETURN) poi il n° della casella in cui vai. 

II computer registra il punteggio, ti dice (prima di muovere i suoi pezzi) in 
quale casella sta andando e pone fine al gioco appena un giocatore riesce a 
catturare 5 pezzi avversari. 

Il programma presenta alcune tecniche strutturate. 

La linea 30 manda il controllo ad una subroutine situata in fondo al pro¬ 
gramma che inizializza le variabili, poi il computer entra nella sua routine di 
gioco (linea 7000). 
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Fatta la mossa torna alla linea 40 e va alla subroutine della linea 8000 che 
ti mostra la scacchiera, da qui va alla subroutine 6000 per accettare la mos¬ 
sa del giocatore, torna di nuovo alla 8000 a ripristinare la scacchiera e poi 
torna indietro per eseguire la successiva mossa del computer e così via. 

Il vantaggio di lavorare in questo modo con una subroutine specifica per 
ogni sezione del programma, è che tu puoi facilmente cambiare le parti che 
non ti sembrano soddisfacenti senza dover affrontare il rischio di esaurire le 
linee o di “perdere la strada". Ponendo l’assegnazione delle variabili alla fine 
hai il vantaggio di poterne aggiungere di nuove quando ne appare la neces¬ 
sità, senza alcun problema. La disposizione del programma è semplice. 


Remarks 

1-1000 anello principale che passa il controllo alle varie subroutine 
6000-6990 accetta le mosse del giocatore ed aggiorna il suo punteggio 
7000-7470 mossa del computer e aggiornamento del suo punteggio 
8000-8990 stampa della scacchiera e del punteggio e verifica di fine gioco 
9000-9140 inizializzazione 

Sebbene questo metodo di programmazione non sia il più idoneo per ri¬ 
sparmiare memoria esso rende il compito della ricerca degli errori e dello 
sviluppo del programma molto più semplice. 

Se tu volessi sapere di più sulla struttura e lo svolgimento di un program¬ 
ma faresti bene a leggere il "Basic con stile” di Paul A. Nagin e Henry F. 
Ledgard pubblicato dalla Hayden Book Company ine. 


REM DRMR 7 PER 7 

REM <C> HRRTNELL 1982 

GOSUB9000:REM INIZIALIZZRZIONE 

MOSSE DEL COMPUTER 
STAMPA DELLA SCACCHIE 


GOSUB7006:REM 
GOSUB8000:REM 


10 
20 
30 
40 
SO 
Rfl 

70 6OSUBS800:REM INGRESSO MOSSE DEL Gl 
OCATORE 
1000 GOTO40 
6000 PRINT 

6050 PRINT"DALLA POSIZIONE"r 
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6060 INPUT M 

6070 FRINT" fìLLfi POSIZIONE"; 

6080 INPUT N 
6098 H < N :> = 120 

6095 IF RBSCM~N>=22 OR RBSCM-N>=13 THE 
N H <<M+N>/2>=46 

6097 IF RBS<M-N> =22 OR RBS<M-H>=18 THE 
N ME=ME+1 
6100 H<M>=46 
6990 RETURN 

7000 REM MOSSE DEL COMPUTER 
7010 F0Rfi=76T012STEP-1 
7020 IF H<fi>0211THEN7060 
7030 FOR B=1 TO 4 

7032 IF fi<28 RND BC3 THEN7050 

7033 IF fì>60 RND B>2 THEN7060 
7035 Q=2*ZCB> 

7040 IF H<fi+Z<B>>=120 RND H<fi+Q>=46 TH 
EN7070 
7050 NEXT B 
7060 NEXT R 
7065 GOTO 7300 
7070 H < fi+Z < E! > > =46 
7080 HCR>=46 
7090 H R+Q > =211 

7092 V=fì+Q 

7093 X=fl 
7095 IT=IT+1 
7100 RETURN 
7200 NEXT fì 

7300 REM MOSSR CRSURLE 
7310 V=0 
7320 V=V+1 

7330 K= I NT RND < 1 > i f66 > + 12 

7340 IF HCIO0211 RND VC100 THEN 7320 

7350 IF H<100-211 THEN 7460 

7360 FOR T=1 TO 4 

7370 IF H<K+Z<T>> = 46 THEN 7400 

7380 NEXT T 

7390 IF V<70 THEN 7310 
7395 GOTO 7460 
7400 HCK+ZCT)>=211 
7410 H C K > =46 
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7415 X=K:V=K+Z<T> 

7420 RETURN 

7460 FRINT"IO LRSCIO" 

7470 END 
7990 RETURN 

8000 REM PULÌ TURPI SCHERMO 
8010 PRINT"□" 

8015 PRINT" IO MUOVO DR R ";V 

8017 PRINT:PRINT 

8020 PRINT "PUNTI: TU:" ;ME.:" IO:"; IT 

8040 PRINT :PRINT :PRINT 
8050 PR I NT " MPJM11234567 " 

8055 PRINT "HI###########" 

8060 FOR J=70 TO 10 STEP -10 
8070 R=H<J+l>:B=H<J+2>:C=HCJ+3>:D=H<J+ 
4 >:E=HCJ+5>:F=HCJ+6>:G=H<J+7> 

8080 PRINT ;J/10;"#";CHRf<fi >;CHR$<B >;C 
HRT < C ; CHR-f < D > ; CHRf < E > ; CHRT <F > ; CHR$ < G > ; 
"#";J/10 
8090 NEXT J 

8100 PR I NT " |1J########### " 

81 10 PR INT"milll 234567" 

8120 IF IT=5 OR ME=5 THEN 8140 
8130 RETURN 

8140 IF IT =5 THEN PRINT"HO VINTO IO!" 
8150 IF ME=5 THEN PRINT"HRI VINTO TU!" 

8999 END 

9000 REM IN121RL. IZZRZI ONE 
9010 IT=O:ME=0 

9020 DIM H < 99 > Z < 4 > 

9030 FOR fl=1 TO 99 
9040 H<fi>=0 

9050 IFR>77ORfì=70ORfì=60ORfl=68ORR=69ORR 
=50ORR=59ORfl=58ORR=40ORfl=49ORR=48 THEN 
GOTO 9090 

9055 IFR=30ORR=38ORR=39ORR=20ORR=28ORR 
=290RRC11 THEN GOTO 9090 
9060 H fì > =46 : REM . 

9070 IF Fl=72 OR fl=74 OR fì=76 OR R=61 0 
R R=63 OR R-65 OR R=67 THEN H R =211 
9080 IF fi=21 OR R=23 OR R=25 OR fì=27 0 
R fì=12 OR fi=14 OR fl=16 THEN H < R > = 120 :RE 
M X 
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9090 HEXT fl 

9100 FOR A=1 TO 4:READ B:Z < fi >=B:NEXT fl 
9110 DATA -11,-9,11.,9 
9200 RETURN 


L i sta. s i rnfoo l i cjrs-f i c i 


8010 


1 

SHIFT 

HOME =CHR$<147 

8050 


4 

CRSR*- 

=CHR$ ■:! 29 > 

8055 


2 

CRSR4- 

=CHR$<29> 

8100 


*2> 

CRSR*- 

=CHR*<29> 

8110 


4 

CRSR<- 

=CHRS<29> 
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BREACKOUT 


Il gioco propone una versione per VIC 20, nella configurazione minima di 
memoria deformai famoso breackout: guidare una pallina che rimbalza ver¬ 
so la distruzione completa di un muro. Il movimento della paletta è stato co¬ 
dificato in linguaggio macchina per ovvie esigenze di velocità. 



Remarks 

10-60 il codice macchina viene depositato mediante un normale ciclo 
che include READ DATA POKE 

70 nella locazione 674 è memorizzata l'ultima posizione della palet¬ 

ta mentre nelle locazioni libere in pagina zero (0 e 1 ) vi è l'indi¬ 
rizzo dove prelevare il codice del tasto premuto 

80-90 da SI a S4 sono tutti i registri per il controllo dello schermo; T3 
è l'indirizzo del generatore di tonalità più bassa; VO è l'indirizzo 
del registro volume. Si settano i colori per il bordo e lo sfondo 

110-160 presentazione e istruzioni 
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170-175 é in pratica il livello di difficoltà: più è alto il numero di palette a 
disposizione più è facile abbattere completamente il muro. Una 
risposta non corretta dà automaticamente una sola paletta 

180 Y contiene la posizifone verticale della pallina, DY la sua direzio¬ 

ne (-1 equivale a IN ALTO e 1 a IN BASSO) 

190 azzeramento del punteggio 

200-230 crea il bordo del campo 

240-260 stampa delle 5 file di mattoncini ciascuna delle quali ha un colore 
ed un punteggio diverso. D è il numero di palette in credito, oltre 
a quella con cui si sta giocando 

270 situazione punteggio, punteggio massimo e palette disponibili 

280 é la routine in linguaggio macchina che preleva la eventuale 

mossa e sposta di conseguenza la paletta. La velocità di que- 
st'ultima dipende dal numero di istruzioni SYS 680 che si trovano 
airinterno del programma compreso tra la linea 260 e la linea 
360 

290 cancella la vecchia posizione della pallina 

300-340 viene calcolata la sua nuova posizione controllando se vi è un 
rimbalzo laterale (DX = -DX), se la pallina ha urtato il fondo o 
qualche mattone 

355 con SYS 736 parte la seconda routine ASSEMBLER che conta 

quanti mattoni restano ancora da demolire; se non ve ne sono 
più, viene messo un 1 nella locazione 673, che altrimenti contie¬ 
ne 0 

360 altra mossa del giocatore, quindi si ritorna alla stampa della palli¬ 

na, al punteggio e così via 

400-420 la pallina ha urtato il fondo. Generazione del suona di commento. 

Viene decrementato il numero di palline che restano: se queste 
sono un numero maggiore o uguale a zero, potete ancora conti¬ 
nuare (invertendo i valori di direzione X e DX, Y e DY), altrimenti 
si salta alla linea 700 

450-500 sono stati distrutti tutti i mattoni e ciò viene sottolineato visiva¬ 
mente e musicalmente. Viene anche generato un bonus che tie¬ 
ne conto del punteggio e del livello di difficoltà 
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510-720 scritte di conclusione e la richiesta di una nuova partita 

3000-3020 questa subroutine genera un valore casuale per X e DX, se 
DX = — 1 la pallina parte a sinistra, altrimenti (DX = 1) partea 
destra 


19 FORI = 1T055 : READA : P0KE679+1, A : NEKT 

20 FORI = 1TO20 :READA :P0KE735+I ., A :NEKT 
30 DATAI72,162..2... 169,32, 153.,205,31.. 153 

., 206,31 , 153, 207., 31.162,. 0,161.. 0., 205.163., 
2., 208., 7 

40 DATA 192., 2., 240., 3., 136 .,161,0., 205., 164., 2 
,208,5., 192., 19., 240 , 1,200 , 169., 224,153., 205 
,31,153 

50 DATA206,31,153,207,31,140,162,2,96 
60 DATA162,0,189,0,30,201,204,240,10,2 
32,224,255,208,244,169,1,141,161,2,96 
70 POKE0,197 :POKE1,0:P0KE673,0 :P0KE674 
,10 :P0KE675,33 :P0KE676,34 

:83=82+1 :84=83+1:T3=36876;V0=T3+2:T2=T3 
-1 

90 PRINT"aa":POKEVO+1,253 

110 PR I NT " H flUBRECKOUTBI" 

120 PRINT"aW DISTRUGGI TUTTI I MATT 
OHI DEL MURO, OGNI FILA DA'' UN PUNTEGGI 
O 

130 F’RINT" MM CON iiZ3 VAI A SINISTRA" 
140 PRINT"S CON r;#33 VAI A DESTRA" 

150 PRINT"BB8 5"CHRT<28> " PREMI UN TA 

STO ■" 

160 GETB$:IFB$=""THEN160 
170 PR I NT " L25M5T CHRT 28 > " QUANTE PALETT 
E VUOIST : INPUT " < 1,2,3,4 > " ; L. 

175 IFL<10RL>4THENL=1 

180 POKEVO+1,239 :POKEVO,15:V=20 : DV=-1 : 
GOSUB3008 SPRINT"33" :IFPU>PMTHENPM=PU 
190 F'U = 0 

200 FORI=7680+44TO7680+44+21 :POKEI,224 
205 POKEI+30720,2 :NEKT 
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210 FOR I =31022 : POKE7680+22* I, 208 : PQKE3 
8400+22*I,2 :POKE7701+22*I,207 
220 P0KE38421 +1*22,2 :NEXT 
230 FORI=0TO21 :P0KE8164+1,207 :P0KE3888 
4+1 .,2 : NEXT 

240 FORI=3T07 : FOR J=1TO20 
258 POKE7680+22* I + J204 : POKE38480+22* I 
+J,I:NEXTJ,I:D=L-1 
260 P0KE7680+X+22*V,81 

270 PRI NT " SfiSFUNT li:" PU ; TflB < 12 > " P. MAX : 
"PN "iS3 H»»»»ia ::RE01TI :"D"i" 

280 SVS680 

290 F : '0KE7680+X+22*V , 32 
300 X=X+0X 

310 IFX<20RX>19THEHDX=—0X :P0KET3,220 
320 V=V+0V: IFV=22THEN400 
330 IFPEEKC7658+X+22*V> =284THENDY=1 :PO 
KET3,230 : P0KE7658+X+22*V,32 :PU=PU+ C10-V 

) 

340 I FPEEK 7702+X+22*V !:■ =2240RPEEK C 7658 
+X+22*V>=224THEHDV=-0V:PQKET3,240 
350 P0KET3 , 0 

355 IFPU>190THENSVS736:1FPEEK<673 > = 1TH 
EN450 

360 SYS680:GOTO260 

400 POKEVO,15:FORI=230TO160STEP-.15 :PO 
KET2-1,I : NEXT:P0KET2-1,0 
410 D-=D- 1 :1FD>-1 THEHY=20 :DY=-1 :GOSUB30 
00:GOTO260 
420 GOTO700 

450 PRINT"□":POKEVO+1,27:FORI=160TO240 
STEP.5 :P0KET3,I:BX=RNDC1>*505+1 
460 POKE7680+BX,160 :POKE38400+BX,INT CR 
HOC 1>*7 > +1 

470 NEXT : P0K.ET3 , © : QX= < PU/ C L*3 +. 5 > :• I =0 
: J=0 

480 J=J+1 : FORI=0TO22 : POKES1,12+1: POKES 
2,38+1 :POKES3,158-1 :P0KES4,174-1*2 :POKE 
T3,220+1 :NEXT 

498 FORI=22TO0STEP—1 :POKES1,12+1:POKES 
2,38+1 :P0KES3,150-1 :P0KES4,174-1*2 :POKE 
T3,220+1 :NEXT 
50© IF..K5THEN489 
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510 P0KET30 : PR IHT " MMMMBK INCI UH BONUS 
DI "QV" PUNTI IL. PUNTEGGIO E' ORA "PU+ 
Qv : pu=PU+Q?i 
520 F 0 RI = 0 T04000 : N E X T 

530 F'R I NT » aawaC OMPL IMEHTI ■, CE L'HAI F 
ATTA! ! ! IL TUO PUNTEGGIO E r STATO DI .a 
"PIJ"H. " 

540 IFPLOPMTHENPRINT"H2MBRAVOCHI PERCHE 
•' E■' ANCHE IL. MIGLIORE !" 

550 GOTO?10 

700 PRINT"SHattl**IN. PALETTE "D+l :POKET 
30 : P0KET2,0 

710 PQKE198,8 : PRINTAT 11 ©ANCORA < S/N > 

H . 

720 INPUTRf:IFLEFTT<RT,1>-"S"THEN180 
740 PR I NT " 3HSBl^&lJMMMillÌia "CHRt < 28 > " C 
IAOB":END 

3000 X= I NT RND < 1 > *20 > +1 :1 FX<20RX> 19THE 
N3000 

3010 DX= I NT RND < 1 > *3 > ~ 1 :1FDX=0THEN3010 
3020 RETURN 


L i s+-3. s i rribo l i gra-f i c i 

80 : 1 HOME =CHR$C19 > 

11 CRSRT =CHRT <17 > 

1 CRSR*- -CHRT- < 29 > 

90 : 1 SHIFT HOME =CHR$<147) 

110 : 1 CRSRT =CHR$ <17 > 

1 REVERSE =CHR*<18> 

1 SHIFT REVERSE =CHRT <■. 146> 

120 : 2 CRSRT =CHR^d7> 

130 : 2 CRSRT -CHRT<17 > 

140 : 1 CRSRT =CHR*<17> 
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150 : 2 CRSRT =CHR$ < 1 ? > 

1 RE VERSE =CHE$'::i8> 

1 SHIFT REVERSE =CHR*<146> 

170 : 1 SHIFT HOME =CHR*< 147> 

4 CRSRT =CHR$| 17> 

180 : 1 SHIFT HOME =CHR$<147> 

278 : 1 HOME =CHR$<19> 

1 REVERSE =CHR*C18> 

1 SHIFT REVERSE =CHR*<146> 
1 HOME sCHR*(19> 

1 CRSRT sCHR$<17> 

5 CRSR*- sCHR$<29> 

450 : 1 SHIFT HOME =CHR$C147> 

518 : 4 CRSRT -CHRf 17 > 

530 : 1 SHIFT HOME =CHR*<147> 

1 CRSRT -CHRT <17 > 

1 REVERSE =CHR*<18 > 

1 SHIFT REVERSE =CHR$<146> 
1 REVERSE =CHR$<18> 

1 SHIFT REVERSE =CHR*<146> 

540 : 1 CRSRT =CHRT •:! 17 > 

1 REVERSE =CHR*<18> 

1 SHIFT REVERSE =CHR*<146> 

700 : 1 HOME -CHRT<19 > 

1 CRSRT =CHR*<17> 

5 CRSRt- =CHR$<29> 

740 : 1 SHIFT HOME =CHR*<147> 

6 CRSRT =CHRT(17> 

3 CRSR'r- =CHR^ < 29 > 

1 REVERSE =CHRTC18> 

1 SHIFT REVERSE =CHR*<146> 


106 



IL GIOCO DELLA SCIMMIA 


È questo un gioco molto giovane e noto. Si tratta di "scimmiottare” il cal¬ 
colatore esercitando la nostra memoria visiva e sonora. 

Vediamo quale è il principio di funzionamento: si accendono uno per volta 
in 4 diverse posizioni dello schermo, altrettanti quadrati, ciascuno di un colo¬ 
re diverso. Sono stati usati il verde il porpora il blu ed il giallo, cui corrispon¬ 
dono i tasti 5,6,7,8 (senza schiacciare il tasto etri); il colore dei singoli fla- 
shes è generato casualmente. In pratica bisogna solo ripetere la sequenza 
premendo i corrispondenti tasti coi colori: ci sono 4 tipi di gioco. 

GIOCO 1 - create la sequenza 

Dopo aver ripetuto la prima nota che il VIC vi suggerisce siete voi a dover 
aggiungere una nuova nota. Continuando in questo modo dovete ripetere le 
prime due note e quindi aggiungerne ancora una, e cosi via finché non avre¬ 
te esaurito il numero di passi stabiliti per ciascun livello di difficoltà (tabella 
1 ). 

GIOCO 2 - ripetete la sequenza 

Il VIC genera la prima nota; ripetetela correttamente ed il VIC ne aggiun¬ 
gerà una seconda, sempre secondo una generazione casuale, e cosi via 
finché non sarà stato raggiunto il numero di note corrispondente alla se¬ 
quenza scelta. 

GIOCO 3 - la sequenza che cambia 

È molto simile al gioco 2. L’unica differenza è che il VIC non ripete la se¬ 
quenza generata precedentemente, ma inizia sempre con una nuova cui di 
volta in volta viene aggiunta una nuova nota. 

GIOCO 4 - singoli Flashes 

Il VIC genera una sola nota che bisogna ripetere entro un secondo. 


Remarks 

40-200 inizializzazione. Scelta del tipo di gioco e difficoltà 
220-280 istruzioni relative al primo gioco 

300-350 quelle relative al secondo 
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370-390 quelle relative al terzo 

410-430 quelle relative al quarto 

450-520 subroutine che genera il suono ed il relativo quadrato colorato 
per ogni flash 

540-610 subroutine per la ripetizione della sequenza 
630-660 scritte finali nel caso di errore 
670-700 musica di accompagnamento 

720-760 commenti in caso di vittoria, punteggio parziale e totale, le prime 
note della QUINTA SINFONIA 

780-860 possibilità di rivedere l'ultima sequenza 

880-940 proposta per una nuova partita 

960-980 svuotamento dello STACK. 


Principali variabili usate 

BK Durata delle note 

BL. 11 discese del cursore più il codice del porpora 

CL. I 4 colori corrispondenti alle posizioni di ciascun quadrato 

D Indirizzo del generatore di tonalità alta 

DI Intervallo di tempo tra due flash 

D2 Tempo, in secondi, che è a disposizifone per la risposta 

D3 Memorizza il tempo di risposta per confrontarlo poi con D2 

G Numero di partite con lo stesso tipo di gioco 

K(N) Posizioni dei quadrati colorati nell'N-esimo flash della sequenza 

Ni Numero massimo di flash per quella sequenza 

P Numeri di flash nel gioco 4 

Q Flag prima dell'uscita da una subroutine 

VO Indirizzo registro volume 

X Numero del gioco 
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Livelli di difficoltà 


tasto 

funzione 

N° note 

intervallo 

tra 2 note 

tempo per 
rispondere 

FI 

4 

100 

5 sec. 

F3 

8 

50 

3 sec. 

F5 

16 

10 

2 sec. 

' F7 

32 

1 

1 sec. 


10 REM IL. GIOCO DELLO SCIMMIA 
40 POKE36879 , 13 : F'R I NT " il" 

50 pr i mt" ramar ti iottro» tipi di gioco sa 

l.UHH TUR SEQUENZA 2.RIPETENDO LA" 

60 PR I NT " HIISEQUEHZA " : PR I NT " H 3. COME IA 
NDO SEQUENZA M 4.SINGOLI FLASH" 

70 PR I NT " MS HI 3 CHE NUMERO ? S3T ; 

80 GETAT : IRAT--- " " THEH80 
90 XeVALCAf>sPRINTX 

100 FRI NT "SIS JSPER INCREMENTARE IL LIV 
ELLO DI DIFFICOLTA•'IJMF'REMI FI.,F3,F5F? 

li 

110 GETA'T : I FAf = " " THEN110 
120 I FATICAR* 133 > THEND1 = 180 : N1 =4 : D2=5 
130 IFAT=CHRf<134 >THEND1=50 :N1=8 :02=3 
140 I FAT--CHRT < 135 > THEND 1 = 10 : N1 = 16 : D2=2 
150 I FA1=CHRT < 136 > THEND 1 = 1 : N1 =32 : D2= 1 
160 Bf = " : C*= " PORR. ifv'ERDE 

BLU GIALLO" 

170 DIMK 32 > : V0=36878 : D=36876 : S=7790 : C 
0=38510 :0=0 :DD=0 
180 NM=1 :G=G+1 :Q=0 
190 PR I NT " 3" B$Ct- : W=RND < ~T I > 

200 0N X G 0 T0220300410 

220 PRINT"HIL VIC SCEGLIE IL PRIMO COL 
ORE " : N= 1 : K C 1 > = I NT C RND ■' 1 > *4 > :J30SUB450 
230 GOSUB540 : IFQO0THEN960 
240 NM=NM+1:N=NMSPRINT"HURGGIUNGI UN N 
UOVO COLORE":D3=TI 
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250 GETfl*: IFR*=""fiNDTI-D3CD2*60THEN250 
266 IFTI-D3>D2#50THEN630 
270 K C H > = VAL < R$ > -5 : GOSUB450 : GOSUB540 :1 
FQO0THEN9S0 
280 GOTO240 

300 N=NM:KCN > = INT CRHD<1>*4 >:GOSUB450 
310 GOSUB540 :1FQO0THEN960 
328 FORI=1TO800:NENT 

330 FORN=lTONM:PRINT"aUIL VIC TI OR' Q 
UESTR SEQUENZR" : GOSUB450:NEXTN 
340 NM=NM+1 :GOTO300 
350 FORI=1TO800:NENT 

370 FORN=lTONM:PRINT"S||IL VIC TI DR•' Q 
UESTR SEQUENZR" : KCN> = INT <RND<1> *4 > 

380 GOSUB450 : NEXTN : G0SUB548 :1FQO0THEN 
960 

390 FORI = 1TO800:NEXT:NM=NM+1 :GOTO370 
418 P=1 

420 D2=1 : N=1 :KCN > = INT <RNDC1> *4 >:G0SUB4 
50 :GOSUB540 : IFQO0THEN960 
430 FOR1 = 1TO400:NEXT:NM=1 :N=1 :P=P+1 :GO 
TO420 

450 POKEVO,15:POKED,135+K<N>*25 :PRINT" 
■ " BTh- " JIÌHMSIUIFRSSO NUM. : " ; 

460 IFX=4THENPRINTP:GOTO480 
470 PRINTN 

480 FORJ=0TO4:FORL=CO+J*22+6*KC N >TOL+3 
:POKEL,K<N>+4:NEXTL,J 

490 FOR,T=0TO4 : FOR I =S+J*22+6*K C N > TO1+3 : 
POKE1,160: NEXTI,J 
500 FORJ=0TOD1 :NEXT:POKED,0 
510 PRINT"3"B*C* 

520 RETURN 

540 FORN=lTONM:PRINT"H RIPETI Lfi SEQU 
ENZR":D3=TI 

550 GETRT:IFRT=""RNDTI-D3<D2*60THEN550 
560 IFTI-D3>D2*55THENQ=1 :RETURN 
570 V=VRL <: m y : IFV-50K < N > THENQ=2 : RETUR 
N 

580 IFV—5=K<N >THENGOSUB450:NEXTN 

590 I FX=4T*HENN=P+1 

6O0 IFN=N1+1THENQ=3:RETURN 

610 RETURN 
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630 PRINT"3HgHAI PERSO! NON SEI STRIO 
ABBASTANZA VELOCE":GOTO650 
640 PRINT"36M-ERRORE- HAI PERSO!" 

650 FORN=1TO1 :NEVI : IFX=4THENNM=P 
660 PRIMI "a "14M-1 " POSSI ERRNO 

CORRETTI":PRIHI"a N. DI 01OCHI : "G 
670 POKEVO,15 :RESTORE 

680 REflDW : IFW=-— 1IHENPOKET+1 ,0 :GOTO780 
69© REROBK:POKET+1,W:PORI = 1TOBK:NEXTI : 
POKET+1.. 8 : FORI -1 TO 10 : NEXT I : GOTO680 
700 DOTA 175 100 r 175, 100 , 175 , 100 , 15150 
00... 300 , r 163... 100,163, 100 , 163... 108,147500 
1 

720 PRINT" nfflBWa CÙMPLIMENTI 1HRI FINITO 
CON"NI" PUNTI" 

730 PRI NT "a N . DI GlOCHI ;"G: DD=DD+N 1 :P 
RINT"amiN TOTALE HAI"DD; 

740 F'R I NT " PIJNTI " : POKEVO .,15: RESTORE 
750 REflDW:IFW=-1THEN780 

760 REROBK : POKED,W:FORI = 1TOBK:NEXTI :PO 
LEO,0 :FORI = 1TO10 :NEXTI :G0T0758 
780 IFX=3 O RX=4THEN880 

800 PRINT" BB»IS^ UOI VEDERE L'ULTIMA|*1*| 
IfBEQUENZA C S/N > ■" 

810 GETfl'T : I FA$= " " THEN810 

820 IFfl$<>"S "ANDATO"N "THEN810 

830 IF At= "S"THENPRINT"□" BtCT 

840 IFfì$="N"THEN880 

850 IFN=N1+1THENNM=NM+1 

860 FORM--1TONM-1 : G0SUB458 : NEXTN 

880 FRINT"38® VUOI CONTINUARE»" 

885 PR I NT " affili. ALLO STESSO MODOIBBKBS2 
.CAMBIANDO LE" 

890 PR I NT " S»1»H C:OND IZIONI" : PR I NT " 130113 
. FINIREBBE®" SPRINT" PREMI IL NUMERO" 
895 PR I NT "felUUUDES I DERATO " 

908 GET At:IFA:f=""THEN900 
910 V=VAL C AI > : IFVO1ANDV02ANDV03THEN 
900 

920 ONVGOTO180930,940 
93.0 RUN 
948 END 

950 REM -PULIZIA DELLO STACK- 
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960 IFQ--1 THEHQ=0 : GOTO630 
970 IFQ=2THENQ=0:GOTO640 
980 IFQ=3THENQ=0 :GOTO720 


List a sirnfoo 1. i graf ici 


50 : 1 SHIFT HOME =CHR*<: 147> 

2 CRSRt =CHR$<17> 

1 RE VERSE =CHRT 18 > 

1 SHIFT REVERSE =CHRt<146> 

2 CRSRT =CHR*<17> 

60 : 3 CRSR«r- =CHR$<29> 

2 CRSRT =CHR*<17> 

70 : 2 CRSRT =CHR$<17> 

1 REVERSE =CHR$ <18 > 

1 SHIFT REVERSE =CHR*<146> 

100 : 2 CRSRT =CHR$C17> 

1 REVERSE =CHR#<18 > 

3 CRSR*- =CHR$ C 29 > 

160 : 10 CRSRT =CHR$d7> 

190 : 1 SHIFT HOME =CHR$<147> 

220 : 1 CRSRT =CHR*<17> 

240 : 1 CRSRT =CHR$d7> 

1 CRSR<- =CHR*<29> 

330 : 1 CRSRT =CHR$<17> 

1 CRSRt- =CHR*C29> 
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379 

: 

1 

CRSRt 

=CHR*<17) 




1 

CRSRt- 

=CHRt>::29) 


45tì 

. 

1 

HOME 

=CHRt 19) 




5 

CRSRt 

=CHR*< 17) 




3 

CRSR4- 

=CHR$<29) 


510 

: 

1 

SHIFT 

HOME =CHRt-:! 147 

> 

540 

: 

1 

CRSRt 

-CHRt 17 ) 


630 

; 

1 

SHIFT 

HOME =CHR$<147 





CRSRt 

=CHRt 17 ) 


640 

« 

1 

SHIFT 

HOME =CHR*<147 

*)l 




CRSRt 

=i::HRt< 17) 


660 

: 

'Z> 

CRSRt 

-CHRt C 17) 


720 

. 

1 

SHIFT 

HOME =CHRt<147 




•7* 

CRSRt 

=CHR$ (. 17) 




1 

REVER 

SE =CHRt C18) 




1 

SHIFT 

RE VERSE =CHRt<: 

146 

730 

: 

•7* 

CRSRt 

=CHR$C17) 


300 

■ 

•“> 

CRSRt 

=CHR*<: 17) 




1 

CRSR-’H 

=CHRt 29 ) 




1 

REVER: 

SE =CHRt<18) 




5 

C R '~i R 

=CHRt 29 ) 




1 

SHIFT 

REVERSE =CHR$< 

146 

830 

• 

• 

1 

SHIFT 

HOME =CHR*a47 

> 

880 

- 

1 

SHIFT 

HOME =CHRt<147 




3 

CRSRt 

=CHR$<17) 


885 

■ 

• 

1 

REVERSE =CHR# C18 > 




4 

CRSR*- 

=CHRt C 29 ) 




1 

CRSRt 

=CHR$<17) 
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890 : 1 REVERSE =CHR*<18> 

4 CRSR*- =CHR$ 29 > 

1 REVERSE =CHR$ C18 > 

1 CRSRT =CHRt<17> 

2 CRSR*- =CHR$C29> 

3 CRSRT =CHR$C17> 

1 SHIFT REVERSE =CHR$<146 


895 


5 CRSR*- S CHR*<29> 
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SCRIVERE E CONVERTIRE GIOCHI 


Questa sezione contiene importanti informazioni e può aiutarti molto 
quando dovrai programmare una scacchiera ed altri giochi per il tuo VIC. 

Ecco una scacchiera numerata per renderla più adatta all'uso che il com¬ 
puter ne dovrà fare. Tu puoi individuare ogni quadretto battendo prima il nu¬ 



mero a sinistra (ordinata), ad esempio 3, e poi quello in alto (ascissa), ad e- 
sempio 4. In questo caso la riga numerata 3 (lungo il lato sinistro) e quella nu¬ 
merata 4 (colonna) in alto, si incontrano nella casella 34. Se tu desideri 
muovere un pezzo batti prima il numero della casella dove ti trovi (es. 55) e 
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poi il numero di quella dove desideri andare ed il computer capirà esatta¬ 
mente quello che vuoi fare. Questo sistema di numerazione della scacchiera 
ha un altro grande vantaggio rispetto ad un sistema che semplicemente nu¬ 
mera le caselle in ordine: muovendoti in qualsiasi direzione, non importa do¬ 
ve tu sia sulla scacchiera, la differenza fra le caselle é la stessa. 

Ora mi spiego: se ti muovi di una casella verso destra ed in alto (come 
normalmente si fa nella dama) tu ti muoverai ad esempio dalla casella 24 al¬ 
la 35 o dalla 53 alla 64 o dalla 71 alla 82. 

Nota che non ha importanza quale sia la tua posizione sulla scacchie¬ 
ra: la differenza fra il punto di partenza e quello di arrivo è sempre 11 
(es. 35 - 24 = 11). Se ti muovi diagonalmente verso sinistra, ad esempio 
dalla 26 alla 35 o dalla 66 alla 75 o dalla 22 alla 31, la differenza sarà sempre 
9. Questa prevedibilità rende relativamente semplice creare scacchiere che 
un computer possa trattare. 

Immaginiamo che il computer abbia una dama sulla casella 24, può esse¬ 
re facilmente programmato per controllare ogni casella della scacchiera e 
ogni volta che trova uno dei suoi pezzi controlla se c’è un pezzo umano nella 
casella numerata (nel nostro caso la 24) più undici (cioè 24 + 11 = 35) e 
che la casella undici oltre la 35 (cioè la 46) sia vuota, il computer può allora 
saltare sopra la 35 mangiando il pezzo che vi si trova. 

Questo è in sostanza il funzionamento di molti giochi di dama per compu¬ 
ter (ma non quello di questo libro). Comunque una scacchiera simile a que¬ 
sta (solo che è 7 per 7 anziché 10 per 10) è utilizzata daH'Othello. 

Se volessi giocare a scacchi su una scacchiera di questo tipo potresti fa¬ 
cilmente specificare i movimenti, ad esempio, di un cavallo sapendo che de¬ 
ve sempre saltare in caselle situate alla seguente distanza da quella di par¬ 
tenza: 21,12,8,19,21,12,19 0 8. 

Verificaio tu stesso, se poni una moneta sulla 55, e la muovi come un ca¬ 
vallo, lavorando sulle relazioni matematiche fra le caselle di partenza e quel¬ 
le d'arrivo troveresti che le differenze sono quelle sopracitate. 
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APPENDICE 


Messaggi d’errore 

BAD DATA... si riceve un dato di tipo stringa al posto di uno numerico 

BAD SUBSCRIPT... ci si è riferiti ad un elemento di un array fuori dal rango 
richiesto con la DIM 

CAN’T CONTINUE... il comando CONT non può essere eseguito, il program¬ 
ma non era partito oppure c'è stato un errore o si è appena corretta o 
inserita una linea 

DEVICE NOT PRESENT... si è richiesto un I/O con OPEN, CLOSE, CMD, 
PRINT#, INPUT#, GET#, e la periferica non è disponibile 

DIVISION BY ZERO... la divisione per zero è impossibile 

EXTRA IGNORED... si risponde ad un INPUT con troppi dati, soltanto alcuni 
sono accettati 

FORMULA TOO COMPLEX... un’espressione era troppo complessa, convie¬ 
ne spezzarla in due parti più semplici 

ILLEGAL DIRECT... un INPUT può essere usato solo in un programma e non 
in modo diretto 

ILLEGAL QUANTITY... un numero è usato come argomento di una funzione 
o di una altra operazione ed è fuori dai limiti consentiti 

LOAD... ci sono dei problemi nel caricare da cassetta 

NEXT WITHOUT FOR... dei cicli sono stati nidificati male, si ha un NEXT che 
non è preceduto dal relativo FOR 

OUT OF DATA... si è usato un READ per leggere più dati di quanti ve ne sia¬ 
no nel blocco dati 

OUT OF MEMORY... non c’è più RAM disponibile, questo può anche acca¬ 
dere se ci sono troppi FOR nidificati o troppi GOSUB concatenati 

OVERFLOW... il risultato di un calcolo supera 1.70141884E+38 
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REDIM’D ARRAY... si cerca di dimensionare una variabile che è già stata di¬ 
mensionata 

REDO FROM START... si risponde ad un INPUT con dati di tipo errato, inse¬ 
rendo i dati esatti il programma continuerà 

RETUR WITHOUT GOSUB... si incontra un RETURN senza che ci sia stata 
una chiamata di subroutine 

STRING TOO LONG... una stringa non può contenere più di 255 caratteri 

SYNTAX... in una linea c'è un errore di sintassi: parentesi mancanti, parole 
chiave inesatte ecc. 

TYPE MISMATCH... errore nel tipo di dati: un numero è usato al posto di una 
stringa o viceversa 

UNDEF'D STATEMENT...GOTO, GOSUB, THEN, RUN che si riferiscono a li¬ 
nee inesistenti 

UNDEF’D FUNCTION... ci si riferisce ad una funzione utente che non è stata 
definita (DEF FN) 


Mappa memoria relativa allo schermo 


0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 


7680 

7702 

7724 

7746 

7768 

7790 

7812 

7834 

7856 

7878 

7900 

7922 

7944 

7966 

7988 

8010 

8032 

8054 

8076 

8098 

8120 

8142 

8164 
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DOWN MODE Code Table 




'•jìiiìIOEJEIEI Effluì 

■HìDDDHPIIPI 

1013 ■ isassai (DDran 
IDDDDKJ DDD01I 5 ] 
laaDDnDDDDsn 
aaDDDM nomilo] 
InnonnB BDBBDW^ 
■■■■■DDDDQli 
«■DDDOIFl 
ìmuwMUEuanìm 


iiaaiDBiii 1 


li 



Dotim 
OKIII 
(DEI 


auraranim 
« murali 
■(10(10 
■mrnmm 
■□niKP 
«mid am 
■Brami 
■Mora o 
■morali 
■mirali 
arasi n 
■rararara 
■rararara 
■rararara 


«rara 
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Mappa memoria relativa al colore 


0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 


38400 





































Combinazioni di colori sfondo-bordo 


BORDER 

SCREEN 

BLK 

WHT 

RED 

CYAN 

PUR 

GRN 

BLU 

YEL 

BLACK 

8 

9 

10 

11 

12 

13 

14 

15 

WHITE 

24 

25 

26 

27 

26 

29 

30 

31 

RED 

40 

41 

42 

43 

44 

45 

46 

47 

CYAN 

56 

57 

58 

59 

60 

61 

62 

63 

PURPLE 

72 

73 

74 

75 

76 

77 

78 

79 

GREEN 

88 

89 

90 

91 

92 

93 

94 

95 

BLUE 

104 

105 

106 

107 

108 

109 

110 

111 

YELLOW 

120 

121 

122 

123 

124 

125 

126 

127 

ORANGE 

136 

137 

138 

139 

140 

141 

142 

143 

LT. ORANGE 

152 

153 

154 

155 

156 

157 

158 

159 

PINK 

168 

169 

170 

171 

172 

173 

174 

175 

LT. CYAN 

184 

185 

186 

187 

188 

189 

190 

191 

LT. PURPLE 

200 

201 

202 


204 

205 

206 

207 

LT. GREEN 


217 

218 

219 

220 

221 

222 

223 

LT. BLUE 


233 

234 

235 

236 

237 

238 

239 

LT. YELLOW 

248 

249 

250 

251 

252 

253 

254 

255 


NOTA 

VALORE 

NOTA 

VALORE 

DO 

135 

SOL 

215 

DO# 

143 

SOL# 

217 

RE 

147 

LA 

219 

RE# 

151 

LA# 

221 

MI 

159 

SI 

223 

FA 

163 

DO 

225 

FA# 

167 

DO# 

227 

SOL 

175 

RE 

228 

SOL# 

179 

RE# 

229 

LA 

183 

MI 

231 

LA# 

187 

FA 

232 

SI 

191 

FA# 

233 

DO 

195 

SOL 

235 

DO# 

199 

SOL# 

236 

RE 

201 

LA 

237 

RE# 

203 

LA# 

238 

MI 

207 

SI 

239 

FA 

209 

DO 

240 

FA# 

212 

DO# 

241 


Valori approssimativi da inserire per ottenere le varie note. 
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Comandi relativi 

Valori possibili 

Funzioni 

ai Generatori Sonori 

di X 


POKE 36878, X 

da 0 a 15 

Setta volume 

POKE 36874, X 

da 128 a 255 

1° generatore 

POKE 36875, X 

da 128 a 255 

2° generatore 

POKE 36876, X 

da 128 a 255 

3° generatore 

POKE 36877, X 

da 128 a 255 

Generatore 


1 2 3 4 5 6 7 8 9 10 11 12 



ABCDEFHJ KLMN 


PIN # 

TYPE 

NOTE 

PIN # 

TYPE 

1 

GND 


A 

GND 

2 

+ 5V 

10CmA MAX. 

B 

CB1 

3 

RESET 


C 

PB0 

4 

JOY0 


D 

PB1 

5 

JOY1 


E 

PB2 

6 

JOY2 


F 

PB3 

7 

LIGHT PEN 


H 

PB4 

8 

CASSETTE SWITCH 


J 

PB5 

9 

SERIAL ATN IN 


K 

PB6 

10 

+ 9V 

100mA MAX. 

L 

PB7 

11 

GND 


M 

CB2 

12 

GND 


N 

GND 
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Giocare con il VIC 20 è divertente; capire come si possono 
realizzare gli effetti sonori, di grafica e di colore che rendono 
piacevoli i giochi è istruttivo. 

Questo libro è un invito a imparare divertendosi; prima giocate, 
ma poi date un'occhiata ai listati dei programmi. Imparerete 
alcune tecniche semplici ma raffinate per raggiungere gli effetti 
più spettacolari, e questo vi servirà senz'altro quando dai giochi 
vorrete passare ad applicazioni ... "serie" 

Vi accorgerete che il pregio di questa pubblicazione è la varietà 
dei giochi presentati, scelti con lo scopo di coprire nel modo più 
completo possibile tutta la gamma di prestazioni che questo 
(ormai celebre) calcolatore, vi offre 


L. 10.000 


Cod 563 D ISBN 88-7056-028-7 




